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II  ABSTRACT 


The  purpose  of  the  study  in  this  dissertation  is  to  translate  raw  categorized 
data  into  numberical  values  on  which  standard  statistical  analyses  can  be  performed. 
When  raw  observations  are  recorded  on  a  nominal  scale,  they  are  to  be  transformed  so 
that  the  resulting  numbers  can  be  regarded  as  lying  on  an  interval  scale. 

A  scaling  technique  is  developed  on  the  basis  of  a  generalization  of  Lancaster's 
approach  (canonical  correlation  for  two  sets).  In  order  to  generalized  the  measurement 
of  internal  dependence  to  more  than  two  sets,  a  single  number  is  needed  i.s.  |p|,  the 
determinant  of  the  correlation  matrix.  We  seek  a  set  of  canonical  weights  a.  for  all 

""A 

sets  i  ■  1,  2,  •••,  k,  such  that  jpj  is  a  minimum;  this  is  Steel's  approach  (restate¬ 
ment  and  expansion),  and  called  the  Minimum- Determinant  approach.  The  reason  for 
choosing  this  approach  is  that  there  exists  a  relationshin  between  the  minimum  likeli¬ 
hood-ratio  statistic  and  maximum  likelihood  estimates;  several  examples  have  been 
presented.  Since  |p|  is  the  minimu  i-determina  it  (and  that  is  the  minimum  likelihood- 
ratio  statistic  for  testing  the  H  :  P  =  I)  the  weights  a^  for  all  i's  will  be  maximum 
likelihood  estimates  of  canonical  weights.  nat!Om/H  TF 
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IO  ABSTRACT  1 

cont. 

This  dissertation  also  presents  computer  programs  starting  from  data  in  contin¬ 
gency  tables  which  are  converted  into  a  correlation  matrix.  Initial  values  are  used 
in  order  to  start  the  mininum-determinant  process.  Various  initial  weights  and  the 
final  minumum-determinant  solution  have  been  compared.  A  good  initial  guess  for  the 
canonical  weights  is  the  "canonical-multiple  correlation"  approach  (the  characteristic 
vector  associated  with  the  largest  characteristic  root  --  the  square  of  the  canonical- 
multiple  correlation  of  one  set  vs.  the  totality  of  the  others).  If  high  accuracy  of 
the  estimate  of  canonical  weights  is  desired,  the  Fletcher  and  Powell  process  can  be 
used  to  obtain  the  minimum-determinant  solution. 

Four  numerical  examples  have  been  presented  and  a  validation  study  demonstrates 
the  qualifty  of  results. 

In  the  appendices,  listing  of  computer  programs  and  input  card  layout  have  been 
given. 
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CHAPTER  I 


INTRODUCTION 

1.1  Introduction 

In  an  article  in  Science.  S.  S,  Stevens  £1946] 
suggested  some  difinitions  of  scales  for  observations, 
which  have  become  rather  widely  adopted.  Most  statistical 
analyses,  especially  multivariate  methods,  require  that 
measurement  be  available  in  an  "interval  scale"  (in  Stevens' 
terminology),  i.e.  that  distance  from  a  point  on  the  scale 
to  aJKt:;sr  can  be  related  to  distance  between  two  points 
at  3.  different  location  of  the  scale.  The  weaker  assumption 
that  data  be  on  an  "ordinal  scale"  presents  no  serious 
problem  either.  Rank  ordering  methods  can  be  applied,  or 
empirical  transformations  can  be  made  from  such  ordinal 
scales  to  marginally  normal  interval  scales j  methods  to  do 
this  were  widely  used  in  the  late  19th  century,  especially 
in  Psychophysics, 

The  last  of  Stevens'  scales,  the  "nominal  scale", 
poses  quite  different  problem,  A  variable  possessing  a 
nominal  scale  can  be  formally  translated  into  numbers, 
but  such  numbers  serve  far  identification  only.  For  example, 
the  variable  "color  of  hair"  could  be  recorded  as  blond  =  1? 
brown  *  2j  black  =  3j  red  =  etc.  It  would  obviously  be 
absurd  to  obtain  "mean  values",  linear  combination,  or 


1 


2 


"standard  deviations"  of  such  numbers.  But  what  is  one  to  do 
if  a  study  of  relationship  between,  say,  eye  color  and  hair 
color  (and  other  nominally  scaled  variables)  is  desired? 

The  object  of  scaling  is  the  translation  of  raw  data 
into  some  other  numerical  values  so  that  standard  statistical 
analyses  may  be  performed  on  the  latter.  The  standard  statis¬ 
tical  analyses  -  paired  and  pooled  t  tests,  analysis  of 
variance,  etc.  -  assume  that  the  data  are  scored  on  an  inter¬ 
val  scale.  Where  the  raw  data  are  in  the  form  of  ranks,  or 
in  the  form  of  grouped  ordinal  data,  analyses  are  often 
adequate  even  if  no  transformations  are  made.  For  example, 
in  the  Kruskal- Wallis  technique,  ranks  are  treated  as  if  they 
were  numbers  on  an  interval  scale.  Only  where  the  number  of 
sequential  categories  is  very  small,  or  where  the  proportion 
of  data  in  each  category  is  far  removed  from  the  expected 
proportion  under  a  normal  distribution,  is  it  necessary  to 
apply  one  of  the  marginal  normalization  techniques. 

Where  raw  observations  are  recorded  on  a  nominal  scale, 
the  object  of  seeling  is  to  transform  them  so  that  the  re¬ 
sulting  numbers  can  be  regarded  as  lying  on  an  interval 
scale,  Such  translation  is  impossible  unless  some  additional 
information  is  available  -  criterion  groups  or,  as  in  the 
present  case,  information  on  other  nominal  variables.  As 
some  form  of  distribution  must  be  approximated  in  such  scal¬ 
ing,  the  normal  distribution  is  usually  chosen  as  the  one  to 
be  approached  by  the  transformed  data.  The  reason  for  choosing 


the  normal  distribution,  univariate  or  multivariate,  is  that 
the  various  forms  of  linear  analyses  lead  to  "best"  test 
statistics  when  errors  are  additive  and  normally  distributed. 
According  to  Gauss,  when  errors  are  additive  and  when  linear 
estimators  are  the  maximum  likeli  ood  estimators  of  the 
location  parameters  ("Axiom  of  the  Mean")  the  errors  will 
have  a  normal  distribution,  provided  only  that  data  be  con¬ 
tinuous,  and  that  there  be  three  or  more  observations. 

For  scaling  of  nominal  variables  it  became  clear  to 
earlier  workers  that  some  criterion,  some  principle,  must  oe 
utilized  to  transform  the  category  numbers  or  levels  in  a 
nominal  scale  into  new  scale  values  which  have,  approximately 
the  properties  of  interval  scales.  In  contrast  to  Stevens' 
terminology,  such  variable?  have  been  called  "categorical" 
or  "categorized”,  in  the  literature  (M.G.  Kendall  [19^8] )t 
we  shall  employ  that  designation.  R.A.  Fisher  [19^0]  proposed 
a  set  of  weights  (i.e.  numbers  into  which  the  original  nominal 
values  are  to  be  translated)  chosen  in  such  a  way  that,  in 
terms  of  the  new  scaled  values,  Euclidean  distances  between 
some  well  defined  criterion  groups  become  as  large  as  possi¬ 
ble.  Lancaster  [1957]  regards  the  criterion  variable  also  as 
a  random  variable,  and  shows  that  a  scaling  procedure  based 
on  this  criterion  variable  gives  the  closest  spproach  to  bi¬ 
variate  normality.  However,  the  same  author  L1960]  then  pro¬ 
ceeds  in  a  direction  of  stepwise  regression  rather  than  multi¬ 
variate  normality,  and  thus  has  merely  an  approximation  to 


the  Bore  general  problem  of  several  sets  of  categorised 
variables.  The  bivariate  methods  proposed  by  Fisher  and 
Lancaster  produce  identical  scales  under  all  conditions) 
they  are,  in  modern  terminology,  discriminant  functions  for 
dummy  variables  ylf  y2,  ...  ,  yfc,  where  y  =  1  if  the 
categorical  scale  value  i  has  been  applied  to  an  observation, 
and  0  otherwise.  The  equivalence  of  this  technique  with 
Lancaster's  canonical  correlation  approach  was  uaed  by 
Kundert  and  Bargmann  Cl$72]  in  order  to  scale  each  cate¬ 
gorical  variable  against  several  criteria. 

A  multivariate  generalization  of  Lancaster's  approach 
is  not  available.  Such  an  approach  is  needed  when  it  is  im¬ 
possible  to  classify  categorized  variables  into  criteria  and 
responses,  where,  in  fact  (k  -  1)  variables  would  have  to 
serve  as  criteria  for  the  k  in  a  set  of  k  nominal  variables. 
In  this  dissertation,  a  scaling  technique  is  developed  on  the 
basis  of  such  an  approach.  Frequencies  of  occurrence  of  each 
combination  of  k  values  are  recorded  in  a  k-dimensional 
contingency  table  (see  CHAPTER  IV).  Experimental  units 
occurring  in  the  same  cell  of  the  k-way  contingency  table 
have  the  same  vector  of  categorical  responses  [c^,  c2»  ...  , 
ck  ]  ,  where  the  c^  are  integers.  In  analogy  with  Lancaster's 
model,  k  sets  of  dummy  variables  are  constructed ,  each  set 
having  as  many  members  as  the  categorical  variable  has  levels. 
From  this  information,  a  super-matrix  can  be  constructed, 
consisting  of  k(k  +  l)/2  submatrices  R..,  where  R.  .  contains 
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the  sample  correlations  between  the  dummy  variables  in  the 
i-sst  and  those  in  the  j-set.  The  internally-scaled  variables 
are  then  found,  in  much  the  same  way  as  the  approaches  by 
Fisher  and  Lancaster,  as  canonical  weights  on  each  of  the  k 
sets  of  dummy  variables.  To  solve  this  problem,  however,  we 
must  make  a  choice,  based  on  the  problem  on  hand,  among  the 
many  proposed  generalization  of  canonical  correlation  j  we 
chose  the  Minimum- Determinant  criterion  proposed  by  R.G.D, 
Steel  [19493  ,  i.e.  the  set  of  weights  which  minimizes 

the  determinant  of  the  resulting  correlation  matrix.  The 
reasons  for  the  preference  are  stated,  in  some  detail,  in 
section  3.2.  To  be  usable  in  conjunction  with  likelihood- 
ratio  testing,  Steel’s  results  must  be  restricted  to  the 
correlation  matrix.  The  determinant  of  the  variance- 
covariance  matrix,  inappropriately  called  "generalized 
variance",  has  no  meaning  in  likelihood-ratio  testing. 

1.2  Literature  Review 

H. Hotelling  [1936]  proposed  the  canonical  correlation 
as  a  measure  of  dependence  between  two  sets  of  random 
variables.  The  definition  has  no  distributional  assumptions j 
however,  the  use  of  linear  combinations  restricts  the  distri¬ 
bution  to  classes  which  are  closed  under  linear  operations  1 
there  are  very  few  such  classes  (multivariate  normal  and 
Dirichlet,  for  example).  From  a  set  of  response  variables  x* 
a  single  variable  u  =  a'x  is  formed  and  from  a  set  z,  a 


6 


linear  combination  v  3  £'z  can  be  formed  where  g,  and  £  are 

chosen  in  such  a  way  that  |corr(u,  v)|  is  a  maximum.  An 

elementary  derivation  shows  that  this  "canonical  correlation 

is  the  positive  square  root  of  the  largest  characteristic 

root  of  a  matrix  product  £^X^z£“*£yZ,  where  £yy  denotes 

the  variance-covariance  matrix  for  the  y  set,  Jlzz  that  for 

the  z  set  and  Y  „  the  covariance  matrix  whose  (i,j)  element 
—  *->  yz 

is  the  covariance  between  y^  and  z^.  The  ideal  weights  a  and 

£  are  called  "regression-like"  parameters  (S.N.  Roy  £195?]) 

and  "weights  of  the  best-predictable  criterion"  (Hotelling 

[1936]  ),  respectively.  Given  observations  obtained  from  a 

sample,  sample  covariance  or  correlation  matrices  can  be 

employed  to  obtain  the  maximum  likelihood  estimates  r  ,  & 

2 

and  b  of  the  above-mentioned  parameters  P  ,  a  and  £,  for  the 

multivariate  normal  case.  The  sample  canonical  correlation 

coefficient  is  a  test  statistic  (based  on  the  "Union- 

Intersection"  principle)  for  the  test  of  independence  between 

two  sets  of  random  variables. 

Although  S.S.  Wilks  [1935]  obtained  likelihood-ratio 

test  statistics  for  the  test  of  independence  in  two  (and 

several)  sets  of  random  variables,  the  sample  canonical 

correlation,  which  was  discovered  later,  does  not  yield  the 

same  testj  where  the  latter  is  the  largest  characteristic 

root  of  R“*  R„„  R“*  R,'  ,  the  likelihood-ratio  statistic  is 
yy  yz  zz  yz' 

I  -  R“*  R„„  R~*  R *  I  ,  i.e.  the  product  of  the  complements 
1  yy  yz  zz  yz 1 
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of  all  the  roots.  The  sane  author  [1932]  also  found  the 
likelihood-ratio  statistic  for  the  test  for  one  set  yB  of 
internal  independence,  to  be  I  Rj  ,  the  sample  correlation 
matrix  of  the  y  set.  He  also  found  that  the  statistic  to 
test  H0i£«  I  is|Sje“tr  S  but.  unfortunately,  called  the 
meaningless  first  factor  of  this  expression  the  "generalized 
variance". 

In  his  dissertation,  R.G.D.  Steel  [l9^9]  studied  the 
problem  of  generalizing  the  canonical  correlation  to  k  (  >2) 
sets  of  variables  but  this  problem  should  not  be  confused 
with  the  likelihood-ratio  test  statistic  for  independence  in 
k-sets,  which  was  described  by  Wilks  [1935]  and  Wald- 
Brookner  [19^1]  .  Steel's  approach  consisted  in  construct¬ 
ing  k  sets  of  weights  a£,  •••  »  to  be  applied  to  the 

k  sets  of  random  variables  ylt  y2,  •••  *  y^  *n  such  a  wa*y 

that  if  ui  *  a j  y^  (i  *  1,  2 . k),the  determinant  of 

the  matrix  of  correlations  between  the  u^’s  is  a  minimum. 
Steel  thus  appears  to  be  the  first  author  to  estimate  para¬ 
meters  in  such  a  way  that  the  resulting  likelihood-ratio 
statistic  (here  the  correlation  determinant,  the  L,  R. 
statistic  for  the  test  of  internal  independence)  is  maximized 
or  minimized.  This  principle  has  been  applied  to  advantage 
by  several  later  authors. 

A  single  Union- Intersect ion  test  statistic  for  the  test 
of  independence  has  not  been  described,  Roy  and  Bargmann 
[1958]  proposed  a  set  of  several  statistic  ("step-down 
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correlation" )  for  this  purpose.  For  estimation  purposes, 
however,  a  single  criterion  fu  stion  is  required.  Social 
scientists  have  described  a  multitude  of  indices  to  express 
the  relationship  between  k  sets  of  variables  by  a  single 
numberi  however,  since  such  indices  are  invariably  defined 
f<”?  a  sample  only  (and  not,  as  they  must  be,  as  parametric 
functions)  they  are  of  no  value  for  statistical  inference 
and  must  be  regarded  as  descriptive  statistics  only. 

P.  Horst  [1961]  offers  four  different  suggestions  for 
indices  of  correlations  among  several  sets  of  variables.  As 
in  the  previous  papers  by  him  and  others,  these  indices  are 
defined  for  samples  only.  Initially,  Horst  performs  the  same 
reduction  as  Steel  Cl 949]  ,  (an  algorithm  which  is  explain¬ 
ed  in  section  4.1)  in  order  to  obtain  identity  matrices  for 
the  correlations  within  each  set.  In  one  of  the  cases,  a 
weighted  sum  of  the  correlations  is  employed.  In  another 
index,  the  matrices  are  approximated  by  matrices  of  rank  one. 
"Maximum  variance"  (actually,  weighted  sums  of  squares) 
methods  are  suggested  on  correlation  elements.  To  some 
social  scientists  who  report  numerous  indices  in  their 
studies  such  an  index  number  may  have  some  relative  meaning 
(just  as  the  Dow-Jones  index  does  to  ecoromists,  or  the 
Intelligence-Quotient  to  some  educators). 

Such  numbers  cannot  be  used  as  criteris  for  statistical 
estimation  or  inference,  since  they  have  no  relation  to 
estimable  parameters.  As  demonstrated  in  section  4.1,  Steel's 
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Minijmim-Correlation-Determinant  seems  to  be  the  only  currently 
known  generalization  that  is  based  on  a  parametric  representa¬ 
tion,  and  can  therefore  be  used  for  the  estimation  of  weights# 

The  following  treatments  of  the  nominal  scaling  problem 
constitute  a  more  comprehensive  approach.  Again,  a  choice 
had  to  be  made  from  an  abundance  of  material  (e.g.  the 
different,  often  contradictory,  approaches  scattered  through¬ 
out  Vol.  lit  Inference  and  Relation,  of  Kendall  and  Stuart 
[1961]  ). 

RoA.  Fisher  [19^9]  regarded  each  categorical  variable 
as  k  (zero-one)  variables  (yA  *=  1  if  the  response  was  i,  0 
otherwise).  His  scale  values  are  what  we  would  today  call 
the  estimated  weignts  of  the  discriminant  function,  i.e. 
those  that  produce  maximum  discrimination  between  defined 
groups  according  to  a  single  criterion.  He  proposed  an 
iterative  solution  rather  than  the  simpler  characteristic 
root  and  vector  approach  which  is  used  today. 

H.C.  Lancaster  [l95?]  obtained  the  same  results  as 
R.A,  Fisher,  using  characteristic  root-characteristic  vector 
methods  and  starting  from  different  assumptions.  However, 
his  objective  was  to  approximate  a  pair  of  categorical 
variables  by  a  bivariate  normal  pair  of  variables.  For 
Lancaster  C 19573  the  "criterion"  o R.A.  Fisher  is  itself 
a  categorical  variable.  Thus,  Lancaster  has  two  sets  of 
dummy  variables i  y*  =  [y^,  y2,  ...  ,  yr]  for  the  r  levels 
of  categorical  variable  y,  and  z'  =  [z^,  z2,  ...  ,  zg] 
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for  the  8  levels  of  categorical  variable  z,  An  experimental 
unit  which  has  response  i  on  categorical  variable  y  and 


response  j  on  categorical  variable  z  would  thus  have  s  +  r 
responses  on  the  dummy  variables  with  y^  =  1,  =  1  and 

all  other  dummy  variables  equal  to  zero  (of  course  the 
resulting  correlation  matrices  are  singular),  Lancaster  then 
shows  that,  if  scale  values  a  are  chosen  for  y  and  scale 
values  b  are  chosen  for  z  so  that  |est,corr (a*y,b'z)|  is  a 
maximum,  then  the  scaled  variates  have  a  best  approximation 
to  normality.  In  a  later  attempt  to  generalize  the  method  to 
k  categorical  variables,  Lancaster  Cl96o]  uses  different 
arguments,  which  are  not  as  convincing  as  the  method  used 
for  the  scaling  of  two  nominal  variables. 

Hays  [1963]  suggests  a  quantity  V1"  ,  to  measure  the 
ability  of  a  predictor  to  explain  the  variance  of  each 
dependent  variable  code  dichotomized  against  the  others,  A 
natural  generalization  of  this  across  codes  would  be  the 
ratio  of  the  sum  of  with-group  sura3  of  squares  to  the  sum 


of  total  sums  of  squares,  i.e. 

t)?  = - IE —  or 


n?  = 


£  slvZt. 


where 

—  2 

vip  -  s  wi  j(y^j  -  yp)  ,  within-group  sums  of 

squares  for  the  p  n  dummy  dependent  variable 
on  ith  predictor. 


T  =  £  w.  (y.  -  y  )  ,  total  sums  of  squares 

p  v  K  Kp  p 

*fc  )l 

for  the  p  dummy  dependent  variable. 


dummy  variable. 

w,  4  «  £  w,.  weight  sum  for  code  of  i*h 

predictor. 

sampling  weight  for  k  c  Q.^  • 

XV 

®ij  subset  of  individual  having  j  code  value  on 
predictor  i. 


ratio  of  within-group  sum  of  squares 


to  the  total  sum  of  squares  on  p  n  dummy 


variable  on 


predictor. 


Messenger  and  Mandell  Cl972]  suggest  a  bivariate  0^ 
to  measure  strength  of  association  using  a  criterion  of 
correct  placement  in  the  dependent  -variable  code  which  is 
a  linear  transformation  of  the  Goodman-Kruskal  lamda 
statisxic  (Goodman  and  Kruskal  [195^])*  They  claim  that 
it  has  more  intuitive  appeal  than  Lamda  and  fits  more 
naturally  with  a  multivariate  model.  Theta  is  defined  simply 
as  the  proportion  of  the  sample  correctly  classified  when 
using  a  prediction-to-the-mode-strategy  in  the  frequency 
distribution  of  each  category. 

For  multivariate  cases,  two  statistics  are  used  to 


Measure  the  multivariate  strength  of  association.  These  are 
the  generalized  squared  multiple  regression  coefficient  R^ 
and  a  multivariate  version  of  8  ,  the  Theta  statistic.  This 
statistic  generalizes  the  bivariate  prediction-to-the-mode 
concept.  It  is  defined  as  the  proportion  correctly  classi¬ 
fied  using  a  decision  rule  that  assigns  each  individual  to 
that  dependent  variable  category  which  has  the  maximum 
forecast  value  for  that  individual;  this  latter  principle 
is ,  of  course,  similar  to  R.A.  Fisher's.  It  appears  that 
the  Messenger  and  Mandell  technique  bears  the  same  relation 
to  the  Fisher-Lancaster  technique  as  the  step-wise  0-1 
multiple  regression  approximation  bears  to  the  discriminant 
function. 

In  an  attempt  to  define  single  indices  of  correlation 
among  k  sets,  J.McKeon  [1962]  starts  with  the  correlation 
between  two  measurements  x  and  y,  based  on  a  paired  sample 
of  size  n.  He  then  defines  a  generalized  measure  of  product 
moment  correlation  among  k  sets  of  variates  by 

p(xl»  x2,  . xk)  =  max  rI(a1x1,  a2x2»  •••  »  akxk^ 

2  ri<jaia5 

° - 2 - 

n  -  1  Za?  SSXi 

where 

Tj  is  the  intraclass  correlation 
a^  is  an  arbitrary  set  of  weights,  each  SP(x£,Xj) 
is  a  sum  of  products,  and  each  SSx^  is  a  sum  of 


(1.2.1) 


squares • 


He  then  defines  the  "Generalised  Canonical  Correlation" 
for  k  sets  of  variates  as  the  maximum  value  of  the  generalised 
product  Moment  correlation  for  the  k  linear  composites  a£ 

(i  ■  ls  2,  ...  ,  k),  with  respect  to  variation  of  the  a^. 

Then 


P(xlf  Xg *  ...  $  Jtjj)  8  max  ^2^2*  •••  *  ak^k^ 

1 


max 


£ai  Si.1  a.1 


-  1 


where 

k  -  l  L 

Ea[  8U  aj 

su 

a  £(x 

a  —  a 

I)(2„  -  5)' 

X' 

—a 

“Cxla  >XZ„ 

•  •••  *pa] 

*■  a 

“Oia  -y2« 

•  •••  yq<J 

(i  ■  1,  2,  ...  ,  p  variates) 

(j  a  i,  2,  ...  ,  q  variates) 

(«  «  1,  2,  ...  ,  n  observations) 

This  is  equivalent  to  maximizing  the  quantity 


£fLfu  ai- 

Lai  Sii  ai 


(k  -  1) rj  +  1 


(1.2.2) 


(1.2.3) 


(1.2.4) 


Let  S  be  the  sum  of  products  matrix  for  the  k  sets 
combined  and  let  be  the  diagonal  super-matrix  with  element 

Sii* 

Let  a'-  [aj,  a£,  ...  .  a^]  be  the  vector  of  combined 


weights,  then 


s'  s  a 


(1.2.5) 


a1 

As  usual,  the  maximizing  y  s^d  &  satifies  the  relation 


(S“J  S  -  y  I)  a  =  0  ,  rj»  — 


Y  -  1 


(1.2.6) 


and  Y-Ch^S^S) 


k  -  1 

(1.2.7) 

where  Ch  denotes  :he  largest  characteristic  root. 

He  extends  canonical  correlation  to  more  than  two  sets 
of  variables,  based  upon  a  generalized  association  measure. 


2 

i?  aiJ  1 

_i<.i 

dT  -  Edf 

X  i 

rT  ” 

1  k  -  1 

E  df 

L  i  1  J 

(k-l)  E  d? 
i  1 

(1.2.8) 


where  d^  are  the  covariance  of  variables. 

2  1 ) 
d^  are  the  variance  of  their  sums.  ' 

He  also  discussed  another  possible  generalization  from 

a  maximization  of 


^  dii 
i<.i  1J 


2  v  2 
"  2  gi 


Etfi 


(E  d.)2  -  Id? 


(1.2.9) 


h  has  a  solution  in  terms  of  roots  and  vectors  for  the  case 
of  a  single  variate  per  set,  and  this  is  closely  related  to 
Lovinger's  Cl9^7]  coefficient  of  homogeneity. 


1)  This  is  McKeon’s  notation,  although  v/hat  he  calls  d,  . 


are  actually  sample  quantities. 
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In  dealing  with  the  problem  of  weights  in  the  absence 
of  a  criterion,  some  authors  describe  sample  index  numbers 
which  assign  weights  to  each  standardized  variable  according 
to  its  loading  on  the  first  principal  component  of  the 
resulting  correlation  matrix  (Horst  [1936]  ,  Edgerton  and 
Kolbe  [1936]  ,  Wilks  [1938]  ,  Lord  [1958J  ). 

Kundert  and  Bargmann  [l9?2]  use  the  similarities 
between  the  Fisher  and  Lancaster  techniques  to  derive  a 
series  of  test  statistics  and  their  distributions  in  the  case 
of  bivariate  categorical  scaling.  As  was  Btated  earlier, 
these  techniques  produce  identical  scale  values*  however, 
Kundert  and  Bargmann  use  other  interpretive  statistics 
(correlations  against  discriminant  function)  to  identify 
those  levels  of  a  categorical  variable  which  contribute  most 
strongly  to  its  association  with  some  criterion.  The  main 
objective  of  their  scale  analysis  is  to  try  to  interpret 
the  dependence  between  criteria  and  categorized  variables. 

In  the  same  general  spirit,  F.M.  Andrew  and  R.C. 

Messenger  [1973J  »  in  their  multivariate  Nominal  Scale 

Analysis,  stated  that  a  general  goal  of  multivariate  data 
analysis  is  to  understand  how  a  dependent  variable  is  affected 
by  a  set  of  independent  variables.  They  raise  five  general 
questionsi  (1)  as  a  whole,  how  well  do  the  independent 
variables  explain  the  variability  in  the  dependent  variables? 
(2)  what  is  the  relationship  of  a  particular  independent 
variable  to  the  dependent  variables,  while  other  independent 


variables  are  held  constant?  (3)  to  what  extent  t.ha  dependent 
variables  can  be  explained  by  a  particular  2u&ependent 
variable«  over  and  abnve  the  other  independent  variables? 

(4)  taking  into  account  a  subject's  scores  on  an  independent 
variable(  what  score  should  one  predict  on  the  dependent 
variable,  and  (5)  what  is  the  deviation  of  the  prediction 
from  an  olserable  score? 

The  Multivariate  Nominal  Scale  Analysis  is  designed  to 
handle  problems  where  (a)  the  dependent  variable  is  a  set 
of  mutually  exclusive  categories,  (b)  the  independent 
variables  may  be  observed  at  any  level,  and  (c)  any  form  or 
pattern  of  relationship  may  exist  between  any  independent 
variables  and  dependent  variable  and  also  between  any  pair 
of  independent  variables. 

The  method  is  designed  to  be  relevant  for  "theoretical- 
oriented/'  and  "conceptual-or5 ented”  analysis.  A  second 
characteristic  of  Multivariate  Nominal  Scale  Analysis  is  its 
ability  to  analyse  relative  large  number  of  predictors  with 
moderate  sized  data  sets.  A  third  characteristic  is  its 
focus  on  the  magnitudes  of  relationships  rather  than  the 
statistical  significance  of  those  relationships. 

Finally,  both  the  one-way  analysis  of  variance  eta- 
square  statistic  ^  by  Hays  [1963]  and  bivariate 
Theta  by  Messenger  and  Mandell  [1972]  are  used  to  measure 

2)  This  is  a  traditional  name  given  to  SSH/(3SH+SSE) ,  the 
incomplete  Beta  statistic  derived  from  F. 
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the  strength  of  the  bivariate  relationship  between  the 
dependent  variables  and  each  predictor. 

P.H.  Dubois  [1957]  and  E.  Jenning  [1965]  defined 
semi-partial  correlation  and  multiple  semi-partial  correla¬ 
tion  (extended  to  the  canonical  semi-partial  correlation) 
when  the  third  set  is  partialed  out  from  only  one  of  the 
two  sets. 

C.A.  Smith  [1953]  has  shown  that  the  generalization 
of  the  M intraclass "  correlation  to  p  measurement  on  n  groups 
is  the  largest  characteristic  root  and  the  associated  vector 
of  a  certain  matrix. 


CHAPTER  II 


CANONICAL  WEIGHTS  IN  CATEGORICAL  SCALING 
2.1  Relation  Between  Two  Sets 

In  this  section,  the  well-known  results  of  canonical 
correlation  analysis  (analysis  of  dependence  between  two 
sets)  will  be  summarized. 

Let 

=  [V*2 . yp]  ’  *'  °  [  Z1  * z2 . zq]  (2-1-1) 

and  then  form  new  variables  as  linear  combinations  of  all 
y's  and  all  z's, 

u  =  «'y  ,  v  =  £'z  (2.1.2) 

Choose  the  vectors  «  and  £  in  such  a  way  that  corr(u.v) 
is  a  maximum ,  and  call  this  maximum  the  canonical  correlation 
between  the  sets  y  and  z.  If  y  is  considered  to  be  the  pre¬ 
dictor  set  then  call  the  elements  of  «  "regression-like" 
parameters  and  if  z  is  thought  of  as  the  criterion  set,  then 
call  £’z  the  "best-predictable-criterion"  (Hotelling  [1936]) 
Now  cov(u,v)  =  cov(  Z’XiZ'J*)  s  cov(y.z')  £ 

=  E12  £  (2.1.3) 

where  is  the  upper  right  block  of  the  covariance  matrix 
and  r±t  £  are  the  weights  of  the  canonical  variables  y  and 

2  • 
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<r>  <*•> 

(x)  Eu  2^2 

"  <*>  ^2  ^22 

(p)  (q) 

Since  the  length  of  *  and  £  are  indeterminate,  they  can  be 
chosen  so  that 

£'EU  2.  =  1  .  »'E22£  =  1  (2.1.5) 

hence  var(u)  «  1  and  var(v)  »  1,  therefore,  under  the  above 
constraints,  corr(u,v)  *  cov(u,v)  ■  X)  £. 

It  is  well-known  that  the  square  of  this  maximum  corre¬ 
lation,  is  the  largest  characteristic  root  of 

U11E12  2^22^12* 

and  «  is  the  associated  characteristic  vector*  £  is  easily 
found  to  be 

0 

Of  course,  multiplication  of  each  of  the  vectors  ®  and 
£  by  an  arbitrary  -positive  or  negative-  constant  will 
produce  equally  valid  weights,  which  maximize  the  correlation 
between  u  and  v.  The  constraints  (2,1.5)  would  then  not  be 
satified. 


1) 


(P) 

(q) 


(2.1.4) 


1)  Letters  in  parentheses  at  the  left  and  top  margin  identify 
sefcs  of  variables*  letter  on  the  bottom  and  at  the  right- 
hand  margin  denote  the  order  of  the  matrices. 
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2*2  Categorical  Analysis  (Lancaster) 

The  results  of  section  2.1  can  now  be  applied  to  a  two- 

way  contingency  table  of  size  p  by  q,  where  p  is  the  number 

of  levels  of  one  categorised  response  variable  and  q  is  the 

2) 

number  of  states  of  the  other  response  variable  .In  order 
to  scale  the  states  of  the  response  variables,  dummy  varia¬ 
bles  are  introduced,  as  follows! 

Let  be  the  dummy  variable  for  "row"  (i  ■  1,  2,  ...,p) 
and  y^  be  that  for  "column"  ( j  «  1,  2,.«.,  q),  associated 
with  each  tally  in  the  contingency  table,  there  are  p  +  q 
dummy  variables. 

xik  "  the  ol>servation  appear  in  row  i 

*  0,  otherwise. 

y jjj.  n  1,  if  the  k  observation  appear  in  column  j 

»  0,  otherwise.  (2.2.1) 

where  k  =  1,  2,  ...,  n. 

Therefore 


1  *ik  -  ni<  • 

k  y*,c " 

l  xik  =  ni.  > 

EE  x 
k 


ikxhk 


™  Vink  s  0 


(2.2.2) 


since  an  observation  cannot  be  in  row  i  and  row 
h  or  column  j  and  column  m  at  the  same  time. 


2)  Both  expressions,  "level"  and  "state"  are  customary j  we 
will  regard  them  as  equivalent. 
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(x) 

Let  s'  '  denotes  the  corrected  sums  of  squares  and 

4.U 

products  for  the  dummy  variables  xj  the  i  diagonal  element 
is 


8 


(X) 

ii 


s  xik  - 


n 


n 


n 


i. 


i. 


(2.2.3) 


n 


the  (i,h)  element  is 


4h}  ■  s  - 


pi.  »h. 


(  z  »lk)(  £  xhlc) 
n 


(2.2.4) 


n 


_th 


If  the  k  individual's  tally  occurs  in  row  i  and 
column  j  of  the  contingency  table,  there  are  thus  (p  +  q) 
scores  on  the  dummy  variables,  [o,0, . . . ,0^1 j 0, . . . ,o]  on  x 

and  [0,0,...,0jlj0,...,0]  on  y. 

The  matrix  of  sums  of  squares  and  products  for  the  x 
variable  is  thus 


E  s  d 
xx  n. 


n.  n! 

-1.-1. 


( i~l ,2, . • . ,p) 


(2.2.5) 


'i.  n 

where  is  a  diagonal  matrix  with  typical  element  n, 

n.  x  • 

i  • 

(i=*l,2, , . .  ,p)  and  nj  is  the  row  vector  [nlt  »n2, '  •  •  •  ,np.] 
vector  of  row  sums.  For  the  response  variable  y,  the  matrix 


of  sums  of  squares  and  products  is  accordingly 


E  =  D 

yy  n.j 


n  i  n' * 

♦JL.  ♦ 


( j— 1 , 2 , • • • , q) 


(2.2.6) 


n 
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where  Dn  is  a  diagonal  matrix  with  typical  element  j 
(j«l,2,.li,q)  and  n^  *  [n#1.n>2f*»n#qJ  ,  the  vector  of 
column  sums. 

Since  2  ^k^jk  "  ni  j  which  is  cel1  frequency  for 
cell  (i,j)  of  the  two-way  contingency  table*  the  corrected 
sums  of  products  between  x ^  and  y^  is 

(2.2.7) 

( 3*1,2, ... ,q) 

in  matrix  form 


S^*  n i3  -  ^  n-^-  (i=l,2, .  •  •  ,p) 


Si  a*i 
E  a  N  -  — -■* — sw- 


xy 


(2.2.8) 


n 


where  N  is  the  incidence  matrix,  and  its  typical  element 
is  the  cell  frequency  in  row  i  and  column  j  of  the  contin¬ 
gency  table. 

Now  we  can  perform  the  "Canonical  Analysis"  i 


Since  E^)  =  D-l  and  E^1’  =  ^ 


i. 


E^^E  =  D"1  (N  -  ( N * - sJoks.) 

xx  xy  yy  xy  n./  n  n§J  n 


3) 


where 

K1  s  j  si  • 

n.j 


.  i  n'  .  .  jn! 

=  (D"1  N - Z_U_)(D~1  N' - — ) 

ni.  n  n.j  n 

j '  ®  ^1(1,..  • ,  1  ^  i  thus  ■  n  j  ®  ^  and 

i . 


(2.2.9) 


3)  A^“^  denotes  a  conditional  inverse  of  A,  i.e.  any  matrix 
for  which  AA^^A  =  A  (Bargmann  Ll966j  ,  rule  9.1)» 
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Hence 


n 


(2,2.10) 


since  Nj.  * 

Denote  the  final  matrix  by  Q*i  then  the  square  of  the 
maximum  canonical  correlation  between  the  x  set  and  the  y 

set  can  be  obtained  by  finding  the  largest  characteristic 

* 

root  of  Q  ,  since 


P2  =  Chmav(Q*)  =  x  ,  say.  (2.2,11) 

We  will  determine  the  x  and  the  associated  characteris- 


tic  vector  a,  so  that 

* 

Q  S  3  x  a 

(2.2.12) 

i  Hi 

Let  W  =  (N  D**1  N  -  — — ±*-) 
n.j  n 

(2.2.13) 

then  D”^  w  &  s  A  & 

(2.2.14) 

where  ^  is  a  characteristic  vector. 

Let  g  »  D *  a  and 
ni. 

premultiply  D"1  W£  *=  x  g  by  D*^  ,  than 
i ,  i . 

(2.2.15) 

"S*"  ^  ■  *  u*i#s 

(2.2.16) 

therefore 
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(2.2.17) 


D**^  w  tT^a  *  x  a 

ni.  niT  * 

and  since  Ch(ABC)  *  Ch(CAB),  hence 

-  cWQ*>  - 

(2.2.18) 

and,  denoting  by  Q  the  symmetric  matrix  in  (2.2.17)  then 


so 


Q  a  *  x  a  » 

b  *  -  E^"1)E*a  *  -D"1  (N*  -  )  a  (2.2.19) 

.  j  n 

are  the  weights  that  maximize  |corr(u,v)|  where 

u  ■  a'x  and  y  *  b'jj;  .  (2.2.20) 

Now, recall  that  x  and  %  are  (0,  1)  variables i  let  x£ 

xi. 

denote  the  x-vector  of  the  k  subject  and  denote  his 
X-vector.  If  he  was  in  state  i  in  variable  x  (rows)  and  in 
state  j  in  variable  y  (columns),  u^  =  a'x^  =  a^  and 

b'yk  *  b^,  thus  a^  is  the  scaled  response  for  state  i 
in  x  ,  and  b^  is  the  scaled  response  for  state  j  in  y. 


CHAPTER  III 


MEASUREMENT  OF  INTERNAL  DEPENDENCE 
IN  A  SINGLE  SET  OF  VARIABLES 

3.1  Generalization  of  the  Canonical  Correlation  Concept 


Before  we  can  generalize  the  bivariate  results  of 
CHAPTER  II,  we  must  discuss  the  generalization  of  the  canoni¬ 
cal  correlation  concept. 

Let  x  be  a  given  single  set  of  variables  with  p 
variables  in  the  set,  and  let 


1 

P12 

p13  ••• 

plp 

P12 

1 

p23  ••• 

P2p 

P13 

P23 

1  ... 

#  tat 

P3P 

% 

P2p 

3p 

1 

(3.1.1) 


be  their  correlation  matrix.  Let  E  be  a  matrix  of  corrected 
sums  of  squares  and  products  * ^  for  x  and  let  £  be  the 
covariance  matrix.  Let  be  a  diagonal  matrix  with  diagonal 

ii 

elements  of  E  in  the  principal  diagonal  and  zero  elsewhere. 

The  sample  correlations  are  then 

e.  . 

r, .  a  — - —  and  r =  1  (3*1.2) 

13  ]/eH  U 


1)  Or  a  matrix  of  S.S,  and  S.P,  error  if  the  sample  came 
from  some  same  analysis  of  variance  design 
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Since  we  want  to  test  internal  dependence*  a  null 
hypothesis  is  H0*  P  **  Ij  this  is  equivalent  to  saying  that 
the  covariance  matrix  is  a  diagonal  matrix  i.e.  H0i  £  «  D 
where  the  principal  diagonal  elements  are  (arbitrary) 
and  off-diagonal  elements  are  zero*  Then*  as  is  well  known* 
the  likelihood-ratio  test  statistic  is  |R|  ,  the  determinant 
of  the  sample  correlation  matrix. 

To  compare  with  available  table-  one  uses  -m  In  {  R |  as 

a  test  statistic  distributed  under  null  hypothesis  as  a 
2 

series  of  x  -variables  (Wald-Brookner  [1941],  Morrison 
[196?]). 

Thus  |  R  j  is  the  likelihood-ratio  statistic  for  the  test 
of  internal  independence.  Since  all  diagonal  elements  are 
unity,  it  has  a  maximum  value  of  1  (which  occurs  when  R  *=  I) 
and  a  minimum  value  of  0  (since  |R|  is,  of  course,  positive- 
definite  or  positive-semidefinite) .  We  will  demonstrate  in 
the  next  section  that  maximization  (or  minimization)  of 
parametric  functions  analogous  to  likelihood-ratio  statistics 
is  equivalent  to  obtaining  maximum  likelihood  estimates. 
Hence,  we  will  obtain  weights  in  k-dimensional  categorical 
scaling  by  minimizing  the  determinant  of  the  resulting 
correlation  matrix. 

3.2  Justification  of  Minimum-Determinant  Criterion 

Among  many  different  index  numbers  for  measuring  the 
multiple  dependence  between  sets  of  variables,  we  choose 
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Steel's  "Minimum  Correlation  Determinant",  with  some 
generalized  transformation  on  each  set  for  the  following 
reason t 

There  is,  in  all  known  situations,  a  relationship  be¬ 
tween  estimation  by  minimizing  a  likelihood-ratio  statistic 
(IA)  and  maximum  likelihood  estimation  (MLE).  We  will  de¬ 
monstrate  this  relationship  below  for  several  simple  examples. 
We  seek  a  parametric  function,  and  maximum  likelihood 
estimators  have  the  invariance  property,  i.e.  under  certain 
conditions  of  uniqueness,  if  t  is  the  maximum  likelihood 
estimator  of  0  then  f(t)  is  the  maximum  likelihood  estimator 
of  f ( 0  ) •  It  is  this  relationship  between  a  function  of 
maximum  likelihood  estimators  and  the  corresponding  function 
of  parameters  which  is  used  to  obtain  the  parametric  function. 
In  the  present  instance  we  cannot  formulate  a  parametric  model 
for  which  the  "Minimum  Correlation  Determinant"  estimates 
would  be  maximum  likelihood  estimates.  This  is  not  necessarily 
a  hindrance  to  its  use,  for  a  similar  lack  exists  in  Factor 
Analysis,  and  even  in  multivariate  analysis  of  variance,  where 
the  rather  artificial  non-centrality  parameters  must  be  intro¬ 
duced  before  the  problem  can  be  stated  as  one  of  maximum 
likelihood  estimation  (Bargmann  [1969]  ). 

Estimation  by  "Minimum  Likelihood-Ratio"  is,  of  course 
similar  to  "Minimum  Chi-square  Estimation"  (e.g.  Cramer 
[19^6]  ).  In  either  case,  parameters  are  estimated  in  such 
a  way  that  a  test  statistic  ("Goodness-of-fit"  statistic)  is 


ST4J  "J.H! W* 
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minimized.  It  is,  of  coarse,  well  known  that  the  "modified'* 
minimum  Chi-square  Statistic  (Cramer,  ibid),  i.e.  the 
goodness-of-fit  statistic  with  omitted  in  the  denominator, 
leads  to  maximum  likelihood  estimates.  The  choice  of  the 
minimum  determinant  procedure  is  thus  based  on  a  conjecture 
which  has  not  been  proven  (except  in  the  trivial  cases  where 
the  likelihood-ratio  can  attain  the  value  1)  but  for  which 
no  counterexample  is  known.  The  conjecture  is  (as  in  the 
case  of  modified  minimum  Chi-square)  that  estimates  obtained 
by  minimizing  likelihood-ratio  statistics  are  maximum  likeli¬ 
hood  estimates  of  parameters  for  some  model  that  fits  the 
sample  most  closely. 

Example i 

Estimation  of  a  common  variance, 
a)  For  the  Simple  Univariate  Caset 

p 

Given  a  sample  of  size  n^  from  N(  ,  a and  a  sample 

2 

of  size  n2  from  N(  Mg,  a  2^ 1 

In  ft  we  have 


In  L(  ft  )  ■  -  -  ln(2  n  )  -  ^  In  - 
2 


n« 


n2  ,  *2  n 
T  -  - 


where 


i  n^  •  i  ni 


2 

(3-2.1) 


p?2  2 

In  u  ,  -  o2  =  d  .  This  common  a  is  to  be 


estimated  in  such  a  way  that  the  resulting  likelihood-ratio 
statistic  becomes  a  maximum.  The  logarithm  of  the  likelihood 
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function  is 

In  MwImj  *Mlf  n2 


-  -  ln(2w)  *  2  ln  ^  (nl  *1  *  "2  82> 


2 

hence,  as  a  function  of  o 

2  "  (nl  51  +  "2  *2 


In  X  ■  -  r  In  j2  -  — *  (n„  2?  +  n„  o?) 


+  ~  ln  ln  2?  +  - 

2  1  9  to 


S  ln2X.t  =  %2  -  -(nj  62  +  a,  S2) 


a(tf£) 
Trivially, 


S2  nl  &1  +  n2  S2 


(3.2.2) 


(3.2.3) 

(3.2.4) 

(3.2.5) 


n 


b)  In  the  Multivariate  Caset 
We  wish  to  test  Hqi 

In  w  ,  the  likelihood-ratio  statistic  will  be  expressed 
as  a  function  of  the  common  £  . 

Let  be  the  matrix  of  sums  of  squares  and  products 
for  error  in  sample  No.  1,  E?  the  same  for  the  sample  No. 2. 

A  1  A  1 

Let  Ej  =  ^  Ej  ,  E2  =  E2  ,  then 

>s  np  n.  1  n0  1 

ln  L(  i?  )  =  -  —  ln(2rr)  -  ln(  ~  E1 )  -  ln(~  Ej 

2  2  nl  1  2  ng  2 


np 

2 


(3.2.6) 
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In  u>  i  Ej  B  Eg  ■  E  and  the  In  L(  u> )  as  a  function 
of  23  *  is 


-  ^  ln(2„)  -  £  i„|E|-  ^  ln|E|-  l  tr 

E  "1<E1  +  e2) 

(3.2.?) 

thus  n 

E"1  -  "  tr  -f  Eg)  + 

n,  1 

f  ln(^  V 

n^  1  np 

+  T  ln(n£  E2)  +  T 

(3.2.8) 

a  In  1  n  1 

"IE  -?(S14V 

(3.2.9) 

is  that  value  which  maximizes  the  likelihood-ratio 

statistic  In  \  ;  equating  -y  ■  to  zero,  we  obtain 
*  El  +  E2 

E**  -  ,  the  well  known  pooled  maximum  likelihood 

n 


estimate. 

c)  In  the  Uniform  Distribution  Caset 

We  discuss  the  hypothesis  Hqi  0  =  0o  in  y  «  [  0,  0  ]. 
The  likelihood  function  is 


L(y)  =  ( - )n  if  y 

0 


max 
otherwise. 


(3.2.10) 


Hence  in  ft  ,  0  =  ymax»  since  0  cannot  be  less  than 


*Wx* 


L(  )  =  <- 


■>n 


'max 


(3.2.11) 


/imaxvn 
8o  ' 


(3.2.12) 


the  0^  which 
o 
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Since  0^  must  be  greater  than  y _ .  the  0^  which 

o  ''max'  o 

maximizes  \  is  which  is  also  the  maximum  likelihood 

max 

estimate  of  0. 


For  a  more  complicated  relationship  (e.g.  estimation  in 
Factor  Analysis)  see  Howe  [l955]  and  Bargmann  [l95?]  • 
Because  of  the  striking  connection  between  minimum 
likelihood-ratio  and  maximum  likelihood  estimation,  we  will 
now  attack  the  problem  of  canonical  weights  in  k  sets  of 
variables  by  choosing  the  weights  in  such  a  way  that  the 
determinant  of  the  resulting  correlation  matrix  is  a  minimum 
(since  a  large  determinant  for  the  correlation  matrix  indi¬ 
cates  approach  to  independence). 

Let  a^  be  a  set  of  weights  for  the  ixn  set,  and  let 

a!  R. .  a. 

ui  3  I*  1111611  corr(ui#Uj)  «  (3.2.13) 

—  «J 


where  hi  =^J  aj  a^  . 

Since,  for  the  u-set,  a  test  of  independence  would 
employ  the  determinant  of  the  resulting  matrix  of  sample 
correlation,  we  will  estimate  the  weights  a|  in  such  a  way 
that  |  P |  is  a  minimum,  where  P^y  the  elements  of  P  ,  are 

^ij  s  corr(ui*uj)  (3.2.14) 

and  hence  functions  of  the  unknown  . 


2)  We  use  R  for  the  large  matrix  of  correlation  between  the 
y's,  even  though  the  elements  are  parameters  (  P's),  so 
that  we  can  use  P  for  the  small  matrix  of  correlation  between 
the  canonical  variables. 
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This  is  Steal's  approach  to  obtaining  a  single  measure 


of  dependence  for  k  sets  of  variates.  It  has  obvious  relevance 

to  the  problem  of  categorical  scaling,  where  the  ^-sets  will 

be  dummy  variables,  ani  hence  that  which  minimises  the 

determinant  will  have  the  scale  values  for  the  states  of  the 
th 

i  categorical  variables. 


CHAPTER  IV 


MULTI-DIMENSIONAL  CATEGORICAL  SCALING 


4.1  Conversion  of  Contingency  Tables  to  Reduced  Correlation 

Matrix 

4.1.1  Description  of  Algorithm 

The  information  required  for  multi-dimensional  categori¬ 
cal  scaling  is  contained  in  the  k-way  contingency  table.  An 
analysis  which  employs  moments  only  up  to  the  second  order 
derives  its  information  from  every  possible  two-dimensional 
marginal  of  these  tables.  This  restriction  is,  necessarily, 
the  same  as  that  in  any  other  instance  where  the  central 
limit  theorem  is  employed  (e.g.  sign-tests,  goodness-of-fit, 
Chi-square  tests).  In  obtaining  the  elements  of  the  super¬ 
correlation  matrix  we  thus  proceed,  for  each  pair  of  catego¬ 
rical  variables,  directly  as  in  section  2.2  (formula  2.2.5* 
2.2,6  and  2.2.8).  For  example,  for  four  sets  we  construct 


a  matrix 


11 

E12 

E13 

E14* 

« 

12 

E22 

E23 

E24 

1 

13 

E23 

E33 

E34 

14 

E24 

E34 

E44" 

where  E. .  has  elements 

11  2 

e<M)  -  n  _  -Vjl. 
eii  ni... 


(4. 1.1.1) 


(4. 1.1. 2) 
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34 


.(1.1)  -  .(l.D 
eij  "  eji 


Ejg  has  elements 

e<1.2>  -  n 
eii  nij.. 


...  etc 


ni  n1 
n 


n.  n  . 

_ tJr !. 

n 


(4.1.10) 


(4.1. 1.4) 


Ey^  has  elements 

e(3.4)  =  n 
ei j  n..ij 


n  ,  n  . 

.  util,  ft  .1J  *  ll 

n 


and  finally,  E 


e 


(4,4)  _ 
ii 
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n. . .  i 


n 


n 


n  .n 


and 


n 


(4.1. 1.5) 


(4.1. 1.6) 

(4.1. 1.7) 


For  p  categorical  variables,  there  will  thus  be  a  super¬ 
matrix  of  corrected  sums  of  squares  and  products,  hence 


E11 

E12  •“ 

Si 

(jfp 

Hz 

E22 

E2p 

<f2) 

• 

Eip 

•  •  •  • 

F  • 
h2p 

• 

Ep? 

<y 

<4> 

(£2 ^  •  •  • 

<y 

(4.1. 1.8) 


where  E^  is 
of  states  or 
For  the 
(weights)  it 


of  order  (£.  x  £  ,) ,  and  £.  denotes  the  number 
levels  of  categorical  variable  i. 
maximum  likelihood  estimation  of  scale  values 
would  now  be  necessary  to  reduce  the  E  matrix 
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to  a  matrix  of  correlations.  Steel  [1949]  •  however* 
suggested  a  further  reduction  to  a  correlation  super-matrix 
in  which  the  diagonal  submatrices  are  identity  matrices.  We 
note  further  that  the  E  matrix  has  rank  +  l2  +...+  /  -  pi 

hence  reduction  of  E  to  a  normalized  R  of  that  smaller  order 
would  be  desirable. 

Since  EAi  is  Gramian  of  rank  -  1),  there  exists 
real-valued,  rectangular  matrices  Ti  (order  x  ( -  1)) 
such  that  T/Tf  *  E^i  among  the  infinitely  many  T^'s  satify- 
ing  this  relation  we  prefer  to  use  that  which  can  be  obtained 
from  the  Gauss-Doolittle  algorithm  (see  formula  11.10  and 
9.14  of  Bargmann  [1966]  ),  mainly  because  the  same  algorithm 
also  produces  a  conditional  inverse  from  the  left,  i.e.  a 
matrix  T*”15  such  that  T*"1*  =  I  ((i£  -  l)X(/i  -  1)).  If 

we  now  premultiply  E  by  the  matrix 


rT(-D  o 


,(-1) 


0 

0 


e  •  e  • 


L  0 


(tx)  u2> 


rp(-l). 

'P 

<V 


-  1) 

<4  - 1) 


(ip  -  V 


(4.1. 1.9) 


and  postmult iply  by  T 


(-1) 


,  the  transpose  of  the  above 


matrix,  we  will  obtain  a  matrix 
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R  m 


r  1  r12 

...  Rlp- 

<4-1  > 

R12 

• 

I 

• 

...  R2p 

•  •  •  • 

14-1  > 

Up 

Rip 

...  I  . 

Up-1* 

(4-1)  (4-1) 

<V1J 

(4.1.1.10) 


which  is  non-singular,  and  has  a  reduced  form  which  makes 
further  calculation  easier. 


4.1.2  Description  of  the  Computer  Program  for  C-E-R 

This  is  the  computer  program  for  the  contingency  table 
to  E  matrix  to  R  matrix,  in  brief i  C-E-R.  A  listing  of  this 
computer  program  is  given  in  Appendix  A2.  The  layout  for 
INPUT  is  in  Appendix  Al. 

The  computer  program  is  written  in  FORTRAN  IV  and  has 
been  used  on  an  IBM  360/65  (and  also,  with  several  overlays, 
on  an  IBM  1130).  It  uses  some  of  the  routine  from  the  IBM 
Scientific  Subroutine  Package  (SSP). 

This  computer  program  is  designed  to  read  a  set  of  re¬ 
cords  with  the  necessary  parameters  (in  FORMAT  512)  and  a 
multiple  dimension  contingency  table  (in  FORMAT  412,514) 
and  up  to  five  sets,  each  set  would  have  up  to  five  levels. 
The  super-matrix  index  is  designed  as  follow;  where  K 
is  an  index  stepped  up  in  accordance  with  IBM  SSP  storage 
mode  1  packing. 
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(4.1.2.1) 


The  computer  program  proceeds  as  follows* 

(1)  READ  in  the  parameters* 

NVAR  -  No.  of  sets  (response  variables). 

ND1  -  No.  of  levels  in  the  first  set. 

ND2  -  No.  of  levels  in  the  second  set. 

ND3  -  No.  of  levels  in  the  third  set. 

ND4  -  No.  of  levels  in  the  fourth  set. 

ND5  -  No.  of  levels  in  the  fifth  set. 

READ  in  the  multiple  dimension  contingency  table  for 
cell  frequencies. 

(2)  Using  a  FUNCTION  subprogram  LT,  this  program  assigns  all 
entries  of  all  contingency  tables  into  a  single  dimension 
array  AR. 

(3)  Pick  up  the  limit  of  K  i.e.  the  number  of  submatrices 
contained  in  the  upper  triangular  part  of  E. 

If  NVAR  =  2  then  KMX=  3. 

If  NVAR  =  3  then  KMX  =  6. 

If  NVAR  =  k  then  KMAX  =*10. 

If  NVAR  =  5  then  KMX  =  15. 


38 


(4)  The  program  now  proceeds  to  (5)  or  (6)  depending  on 
whether  submatrices  are  in  the  diagonal  or  off- 
diagonal  portions  of  G,, 

(5)  If  K  *3  l,  3,  6,  10,  15  then  call  the  subroutines  to 
construct  the  matrix  for  i  *,1,  2,  3,  4,  5* 

(6)  If  K  /  1,  3,  6,  10,  15  then  call  the  subroutine  to 
construct  E^  for  i  £  j,  the  off-diagonal  submatrices 
in  the  super-matrix  E. 

(7)  Compare  the  index  with  the  corresponding  NVAR  designated 
KMAX  value.  If  they  are  not  equal  then  go  back  to  loop 
to  finish  the  construction  of  E  matrix  otherwise  go  to 
next  step. 

(8)  After  all  E^  matrices  have  been  constructed,  proceed 
to  the  calculation  of  the  T  conditional  inverses  for  all 
the  diagonal  submatrices  in  E. 

(9)  Calculate  R^  =  t!’1)  E.  . 

(10)  OUTPUT  the  parameters  and  the  multiple  dimensional 

contingency  tables  as  in  (1),  the  E  and  R  matrices,  also 
the  T  conditional  inverses.  The  above  results  along  with 
marginal  totals  for  each  set  and  the  grand  total  are 
written  in  TAPE  10,  the  temporary  tape  storage  for 
further  usage.  All  these  intermediate  results  will  be 
used  later  to  express  the  scale  values  in  terms  of  the 
original  states. 


I 
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The  card  layout  is  described  in  Appendix  A1 ,  the  reason 
for  using  Response  Variable  (2)  as  the  last  subscripted 
variable  is  that  when  k-way  contingency  tables  are  recorded* 
it  is  cus ternary  to  record  them  as  sets  of  two-way  tables 
with  the  third*  fourth,  etc  dimensions  fixed.  Each  two-way 
table  then  has  the  first  dimension  as  rows  and  the  second 
dimension  as  columns.  To  avoid  key  punch  errors  it  is  advisa¬ 
ble  to  punch  the  cards  for  such  pairwise  contingency  tables 
so  that  there  is  one  card  per  row.  Thus,  if  the  k-dimensional 
array  is  expanded  into  a  one-dimensional  string,  the  levels 
of  Response  (1)  should  vary  fastest j  however,  the  levels  of 
Response  (2)  are  columns  of  a  two-way  contingency  table  which, 
if  key-punched  row-wise,  would  occur  on  the  same  punched  card. 


Computer  Pregram  C-E-R 
Flow-Chart 
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An  example  of  INPUT  and  OUTPUT  data  of  the  C-E- 
computer  program  as  follow t 
(1)  INPUT  data* 

a.  NVAR  »  3,  ND1  ■  3,  ND2  »  3.  ND3  *=  3,  ND4  *= 

b.  Contingency  table* 


1 

1 

1 

1 

30 

70 

30 

2 

1 

1 

1 

10 

50 

40 

3 

1 

1 

1 

75 

20 

5 

1 

2 

1 

1 

37 

28 

10 

2 

2 

1 

1 

15 

25 

30 

3 

2 

1 

1 

27 

0 

23 

1 

3 

1 

1 

53 

5 

7 

2 

3 

1 

1 

35 

25 

20 

3 

3 

1 

1 

30 

0 

20 

(2)  OUTPUT  information! 


1) 

1,  ND5  a  1 


Direct  print-out  from  the  computer  is  on  page 
42  -  46. 


THE  CONTINGENCY  TABLE  INPUT  DATA 


THE  NUMBER  OP  SETS  NSETS)  =  3 

THE  NUMBER  OF  RESPONSES  OF  FIRST  LEVEL  (ND1)  «  3 

THE  NUMBER  OF  RESPONSES  OF  SECOND  LEVEL  (ND2)  «  3 

THE  NUMBER  OF  RESPONSES  OF  THIRD  LEVEL  (ND3)  **  3 

THE  NUMBER  OF  RESPONSES  OF  FOURTH  LEVEL  (ND4)  «  1  ^ 

THF  NUMBER  OF  RESPONSES  OF  FIFTH  LEVEL  (ND5)  ■  1  ^ 


CONTINGENCY  TABLE 


LEVEL 

LEVEL 

LEVEL 

LEVEL 

LEVEL 

(1) 

(3) 

(4) 

(5) 

(2)  (1. 

..  3) 

ft#*****#*****#*###***#**************#*#####**##*##### *«#«*«« 

1 

1 

4 

X 

l 

30 

70 

30 

2 

1 

l 

l 

10 

50 

40 

3 

1 

l 

1 

75 

20 

5 

1 

2 

l 

l 

37 

28 

10 

2 

2 

l 

1 

15 

25 

30 

3 

2 

l 

1 

27 

0 

23 

1 

3 

l 

l 

53 

5 

7 

2 

3 

1 

1 

35 

25 

20 

3 

3 

l 

1 

30 

0 

20 

1)  LEVEL  =  1  indicates  that  there  is  no  fourth  and  fifth 
responses. 


THE  E  1  1  MATRIX 


0.168750E  03 

-0.937500E  02 

-0.750000E  02 

-0.937500E  02 

0.163i94E  03 

-0.694444E  02 

-0.750000E  02 

-0.694444E  02 

0.144444E  03 

THE  E  1  2  MATRIX 

0.300000E  01 

0.193750E  02 

-0.223750E  02 

-0.483333E  02 

0.225694E  02 

O.257638E  02 

0.453333E  02 

-0.419444E  02 

-O.338888E  01 

THE  E  2  2  MATRIX 

0.176800E  03 

-0.966333E  02 

-0.801666E  02 

-0.966333E  02 

0.153931E  03 

-O.572986E  02 

-0.801666E  02 

-0.572986E  02 

0.137465E  03 

THE  E  1  3  MATRIX 

0.625000E  01 

0.167500E  01 

-0.812500E  01 

-0.145833E  02 

0.229166E  01 

0.122916E  02 

0.833333E  01 

-0.416666E  01 

-0.416666E  01 

THE  E  2  3  MATRIX 

-0.280000E  02 

-0.550000E  01 

0.335000E  02 

0.377916E  02 

-0.739583E  01 

-0.303958E  02 

-0.979166E  01 

0.128958E  02 

-0.310416E  01 

THE  E  3  3  MATRIX 

0.178750R  03 

-0.893750E  02 

-0.893750E  02 

-0.893750E  02 

0.142187E  03 

-0.528125E  02 

-0.893750E  02 

-0.528125E  02 

0.142187E  03 

INFORMATION  STORED  IN  DISK 
FILE  NAME  IS  $$$$$ 
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NUMBER  OF  VARIABLES  - 

MAXIMUM  NUMBER  OF  ITERATIONS 
MINIMUM  VALUE  OF  THE  FUNCTION  = 

PERMISSIBLE  ERROR  DURING  ITERATION 


6 

150 


NUMBER  OF  SETS  (NSETS) 
NUMBER  OF  ROWS  (1,1) 
NUMBER  OF  ROWS  (2,2) 
NUMBER  OF  ROWS  (3,3) 
NUMBER  OF  ROWS  (4,4) 
NUMBER  OF  ROWS  (5,5) 


WRITE  IN  WEIGHTS 


2) 


0.500000E  00 
0.5000C0E  00 

THE “MARGINAL  TOTAL  FOR  SET  1 
270  250  200 

THE  MARGINAL  TOTAL  FOR  SET  2 
312  223  185 

THE  MARGINAL  TOTAL  FOR  SET  3 


3 

2 

2 

2 

0 

0 


0.500000E  00 
0.500000E  00 


O.OOOOOOE  00 
0.100000E-02 


0.500000E  00 
0.500000E  00 


330  195  195 

THE  GRAND  TOTAL  *  720 


2)  Dummy  numbers  at  this  stage 


THE  T  CONDITIONAL  INVERSE 
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0.769800E-01  O.OOOOOOE  00 

O.OOOOOOE  00 

0.527046E-01  0.948683E-01 

O.OOOOOOE  00 

THE  T  CONDITIONAL  INVERSE 

0.752071E-01  O.OOOOOOE  00 

O.OOOOOOE  00 

0«543546E-01  0.994470E-01 

O.OOOOOOE  00 

THE  T  CONDITIONAL  INVERSE 

0.747957E-01  O.OOOOOOE  00 

O.OOOOOOE  00 

0.506369E-01  0.101273E  00 

O.OOOOOOE  00 

I  »m*m  t\ 


THE  Rll  MATRIX 


0.100000E  01 

O.OOOOOOE  00 

O.OOOOOOE  00 

0.100000E  01 

THE  R12  MATRIX 

0.173683E-01 

O.I6O876E  00 

-0.3329 55E  00 

0.738409E-01 

THE  R22  MATRIX 

0.100000E  01 

O.OOOOOOE  00 

O.OOOOOOE  00 

0.100000E  01 

THE  R13  MATRIX 

0.359861E-01 

O.3898O3E-OI 

-0.788416E-01 

-0.213504E-01 

THE  R23  MATRIX 

-0.157504E  00 

-0.148522E  00 

0.167268E  00 

0. 84792 0E-02 

THE  R33  MATRIX 

0.1000C0E  01 

O.OOOOOOE  00 

O.OOOOOOE  00 

0.100000E  01 
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4*2  Initial  Estimate  and  Approximate  Scale  Values 

4.2.1  Description  of  Algorithm 

After  the  reduced  super-matrix  R  has  been  constructed, 
the  minimization  of  a  given  function  (the  log  determinant  of 
the  resulting  correlation  matrix  P  )  is  needed  to  obtain  the 
categorical  scales  for  each  seti  we  must  first  find  some 
initial  values  for  categorical  scales  to  start  the  minimi¬ 
zation. 

The  Fletcher  and  Powell  Descent  Method  [1963]  is  used 
for  the  minimization.  Initial  values  must  be  chosen  very 
carefully,  so  that  the  numerical  analysis  converges  in  a 
reasonable  number  of  steps  (or,  for  that  matter,  converges 
at  all).  The  following  methods  are  available  1 

4.2. 1.1  Arbitrary  Determination  of  the  Initial  Values 
The  initial  values  for  categorical  scales  can  be 

determined  arbitrarily.  We  may  start  with  all  l's  or 
all  0.5's  or  any  other  values  which  we  may  conveniently 
think  of.  It  is  very  unusual  for  this  method  to  conver¬ 
ge. 

4. 2. 1.2  Average  Canonical  Scales 

Starting  from  the  off-diagoral  matrices  of  the  super¬ 
matrix  R,  obtain 

ai  =  Rii  Rij  (4.3.1.2.1) 

where  R!  .  is  the  transpose  of  R.  and  the  largest 

X  J  x  J 

characteristic  root  X^  =  Chmax^i)»  with  associated 
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vector  U£.  Note  that  is  not  the  same  when  response 
(1)  is  compared  with  response  (k)  £  (j),  Thus,  for  each 
response  variable  we  have  (p  -  1)  different  characteris¬ 
tic  vectors.  Of  course  the  characteristic  root  - 
characteristic  vector  analysis  needs  to  be  done  for 
p(p  -  l)/2  matrices  only  since,  if 


Ri i  RJ i  u*  s  X  u* 

ij  lj  — l 


(4.2. 1.2. 2) 


then  R!^  R^j  has  the  same  largest  characteristic  root  X, 

* 

and  the  associated  characteristic  vector,  say  u .  , 
equals  R£j  u^  • 

As  a  starting  value  we  may  average  the  (p  -  1)  u^ 

i.L 

vectors  obtained  for  each  pairing  of  the  i  response 
with  the  others.  As  in  every  characteristic  root  - 
characteristic  vector  analysis,  the  length  of  the  u^ 
are  indeterminate.  In  the  above-mentioned  method  they 
are  all  taken  to  be  unit  length.  Thus,  if 

Ril  R^j  =  X^  ( 1 )  (4. 2, 1.2. 3) 

and  %(i)  =  1, 

4uiu) 

then  v.  =  -k -  (4, 2. 1.2. 4) 

-1  (p  -  1) 

v^  is  the  initial  vector  of  weights  for  response  i.  The 
weakness  of  this  averaging  procedure  is  that  the  same 
weights  are  applied  to  each  characteristic  vector,  re¬ 
gardless  of  whether  response  i  has  a  low  or  high  corre¬ 
lation  with  the  other  responses  with  which  it  is  paired. 
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4. 2. 1.3  This  leads  to  a  further  improvement  of  the 
starting  value 

As  in  4,2,1 .2,  we  obtain  all  (p  -  1)  characteristic 
vectors  for  each  response  it  our  initial  estimate  now 
is  a  weighted  average,  using  the  largest  characteristic 
root  for  each  pairing  as  weights.  Thus,  if  ChfR^jR!^)*^ 
and  the  corresponding  characteristic  vector  is  u-^jj 
then 


*i  * 


jpiXj  Mi(j) 


(4.2. 1.3.1) 


is  the  initial  vector  of  weights  for  response  i.  This 

method  works  very  well  (see  section  6.6);  there  is, 

however,  a  problem  regarding  the  signs  of  since 

it  is  unknown  whether,  say,  (+-++)  or  (-+--)  is 

the  "proper"  sign  (possibility  of  "negative  canonical 

correlation").  For  the  weights  which  are  appreciably 

different  from  zero  we  used  the  sign  pattern  obtained 

for  the  characteristic  vector  associated  with  the  largest 

of  the  (p  -  1)  maximum  characteristic  root,  so  as  to 

define  the  largest  correlation  to  be  positive. 

4. 2. 1.4  Multiple  Regression  Approach 

If  the  (i^  -  1  )  dummy  variables  in  response  i  are 

considered  as  concomitant  variables,  and  the  (i.  -  1) 

J 

dummy  variables  in  response  j  are  considered  as  (L  -  1) 

J 

predictands  (response  variables),  then  the  matrix  R.  • 

**■  J 

would  be  a  matrix  of  regression  weights  estimates, 


since  *=  1  and  RU  RiJ  «*  B,  the  regression  weights 
estimates.  From  this  analogy ,  another  starting  value 
can  be  obtained.  To  determine  the  weights  to  be  applied 
to  the  (p  -  1)  u^  vectors  (characteristic  vectors)  we 
set  up  a  (p  -  l)x(p  -  1)  matrix  A  whose  elements  are 
the  canonical  correlations  (positive  square-roots  of 
largest  characteristic  roots  of  Rjk  R3k*  between  the 
response  sets  other  than  i.  As  a  right-hand  side  for 
the  regression-like  equation  we  use  the  canonical  cor¬ 
relations  of  response  set  i  versus  the  other  (p  -  1) 
response  sets.  The  multiple  regression  weights  obtained 
as  solutions  from  this  system  of  equations  are  used  as 


weights  for  the  averaging  of  the  u^j)  (in  place  of  the 
in  4. 2. 1.3.1). 


For  each  response  set  partition  the  super-matrix  R 


into  two  parts 


I  ®(i)  j 

■R(i)  R(JjH  ( 1  ] 

<V  V  <i> 

where  ( t  )  =  £  £  ^  -  P  +  1  • 

R(i)  “  E  Rii  Ri2  •••  Rip  3 
(except  R^) 


(4. 2. 1.5.1) 


(4. 2. 1.5. 2) 
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and 


<jj) 


r  1 

R12 

•••  RiP“ 

ts 

R12 

I 

R2p 

t 

• 

•  1  •  1 

-% 

Kip 

...  I  _ 

(4.2.1. 5.3) 


(except  the  pseudo-row  and  pseudo-column). 

Thus  obtain,  for  each  response  set,  a  single  set  of 
weights  u^  which  represents  the  canonical  weights  on  the 

.A.U 

i*n  response  set  when  correlated  with  all  other  sets 
combined. 

4.2,2  Description  of  the  Computer  Program  for  ICW 

This  is  the  computer  program  for  obtaining  the  initial 
weights,  in  brief i  ICW.  The  listing  of  the  computer  program 
is  in  Appendix  B.  The  IBM  Scientific  Subroutine  Package 
program  used  is  EIGEN  which  obtains  characteristic  roots  and 
vectors  of  real  symmetric  matrices  using  the  Jacobi  Method 
(see  System/360-SSP-360A-CM-03X-Version  III,  Programmer^ 
Manual.  164). 

(1)  The  main  calling  program  HEAD  the  information  from 


TAPE  10. 

«  + 

i.  The  1  record*  which  will  not  be  used  in  this 
program. 

ii.  The  2nd  record*  NSET  -  no.  of  sets. 

NRST  ( I ) ,  1=1 , NSET  -  the  size  of  R^ 
submatrices  of  R, 
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iii.  The  3rd  record i  X(I),Isl,N  -  dummy  numbers  of 

weights. 

iv.  The  and  6th  are  not  used  in  this 

program. 

(2)  Initial  LIMIT  =  1. 

(3)  Subroutine  REAIN  -  Read  the  7th  read  from  TAPE  10, 
the  super-matrix  R  which  is  the  reduced  matrix  from 
the  program  C-E-R, 

(4)  If  LIMIT  a  1,  proceed  to  (5)|  if  LIMIT  *  2  proceed 
to  (8). 

(5)  Subroutine  RIOUT  -  It  will  output  the  information 

^  j  xu 

on  the  2  and  7  records,  i.e.  no.  of  sets,  sizes 
of  submatrices  and  the  super-matrix  R. 

# 

(6)  Provides  the  working  storage  for  the  R  set,  the 
Subroutine  EMPTY  will  zero  out  the  working  storage. 

(7)  Subroutine  RSI  -  Calculates  the  R*  ®  R  R*  where  R* 
is  the  transpose  of  R,  then  proceeds  to  (11). 

(8)  Subroutine  ROUT  -  Output  the  R'  matrix. 

(9)  Same  as  (6), 

(10)  Subroutine  RS2  -  Calculates  the  R*  «  R'R  matrix 

then  proceeds  to  (11). 

* 

(11)  Packed  the  R  matrix  into  a  single-dimensioned  array 
with  storage  mode  1,  in  order  to  use  the  SSP  EIGEN. 

(12)  Subroutine  EIGEN  -  Find  the  largest  characteristic 
root  and  the  associated  characteristic  vector. 

(13)  Subroutine  SECOD  -  If  LltflT  =1,  the  roots  and  vectors 
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and  the  square  root  of  the  characteristic  roots  will 
be  padked  into  appropriate  single-dimensioned 
variables  for  later  usage*  If  LIMIT  *  2,  the  Sub¬ 
routine  will  do  the  same  thing  except  the  single- 
dimensioned  variables  will  be  different  from  those 
when  LIMIT  *  1. 

(14)  If  NSET  is  greater  than  2,  proceeds  to  (15),  other¬ 
wise  proceeds  to  (8). 

(15)  Subroutine  RLOAD  -  Reload  the  other  R*  matrix  then 
set  IGO  value.  If  IGO  =  2,  proceeds  to  (11).  If 
IGO  a  1,  proceeds  to  (16). 

(16)  If  LIMIT  ^  1  then  proceeds  to  (18),  if  LIMIT  =  1, 
proceeds  to  (17). 

(17)  Set  LIMIT  a  2  then  proceeds  to  (4). 

(18)  Subroutine  FINAL  -  It  will  sum  and  average  the 
characteristic  vectors  using  the  canonical  corre¬ 
lations  from  step  (13)  as  weights.  These  are  the 
estimated  initial  weights. 

(19)  Subroutine  DORMF  -  The  resulting  weights  from  (18) 
are  normalized. 

(20)  Subroutine  FILUP  -  This  subroutine  packs  the 
normalized  estimated  initial  weights  into  a  single- 
dimensioned  array. 

(21)  WRITE  the  normalized  estimated  initial  weignts 
which  are  calculated  from  (19),  for  ermh  set.  The 
packed  initial  weights  from  FILUft,  will  replace  the 


5* 


dummy  numbers  in  storage-  the  3rd  record  in  TAPE 

10. 

Some  intermediate  results  are  stated  in  section  6.6 t 
however,  since  these  were  explanatory  programs,  no  detailed 
illustrations  have  been  provided.  CHAPTER  VI  contains  several 
illustrations  using  the  best  initialization,  i.e.  the  canoni¬ 
cal-multiple  weights. 
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Subroutine  EIGEN  (I BN  SSP) 
to  find  largest  characteristic 
root  X  and  vector 


(12) 


Subroutine  SECOO 
LIMIT=1,  packed  the  first  set 
of  root,  vector  and/T 
LIMIT=2,  packed  the  second  set 
_ of  root,  vector  and/X 


(13) 


■NSET  =  21 


(14) 


Subroutine  R£OAD 
reload  the  other  R  matrix 


(18) 


Subroutine  FINAL 
sum  and  average  the 
characteristic  vectors 


(15) 


Subroutine  DORMF 

(19)  normalizing  the  resulting 
vectors 


LIMIT=1 


set 

LIMIT 


(16) 


J  (17) 


Subroutine  FILUP 
packed  all  sets  of 

(20)  characteristic  vectors 

into  a  single  array 

I ;  T  1 _ 

WRITE  out  the  normalized  vectors  for  each  set 
which  are  the  resulting  initial  weights  and 

(21)  WRITE  the  single  array  of  packed  weights  from 

FILUP  into  TAPE  10,  to  replace  the  dummy 
numbers  in  storage 


2)  IGO  =  2  refers  to  the  left  pass  of  the  previous  page, 
IGO  *s  l  refers  to  the  right  pass. 

It  is  reset  by  the  Subroutine  RLOAD, 
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4,3  Minimum  Determinant  Solution 
4,3*1  Description  of  Algorithm 

We  want  to  find  weights  ^  (i  «*  1,  2,  ...  ,  p)  such 
that  a  variable  (canonical  variable)  can  be  formed  for  each 
response  set, 

u^  ®  (i  *  1,  2,  ,,,  ,  p)  (4. 3, 1.1) 

with  corrfaj^,  £ja^)  =  corr(uif  u^)  =  P^ 

&iRijaj  (4.3*1* 2) 


under  the  contraint  =  aja^  =  1  for  all  i's  and 

P  is  the  matrix  with  typical  element  p. .. 

*  J 

Formally, 


1 


12% 


— 1R12— 2 
1 


•  •  •  %Rip^p-“ 

. .  •  a2R2p%> 


(4.3. 1.3) 


J-apRip%  — pR2p%  1  "L 

a  (p  x  p)  matrix.  We  need  to  find  the  vector  which 

minimize  |  P|  (we  use  In  |  P  |  ,  for  simplicity).  Now 


d In  I  PI  =  tr  d  In  I  PI  3  P 
3  ali  ^  p  ^  ali 


■  tr  P 


-1 


(  2  -1  ^i  ^R12-2^i 
^-2R12  ^i  0 


3) 


*Rlp£p*i 


0 


0 


•  •  • 


0 


(4. 3. 1.4) 


3)  Where  (Rnai)i  denotes  the  ith 


element  of  R^a^. 
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Denote  the  inverse  of  P  by 


P  11  12 

P  P 

p1pi 

12  22 

.2P 

p-1  = 

P 

p  •  •  • 

P 

A 

(4. 3.1. 5) 

j.lp  p2p 

PPP. 

Simplifying  - 

^  ^ ,  we  have 

c 

a.  • 
li 

r  a11  a12  olp1 

p  P  •  •  •  P 

** 

'( 

2  a1)i  ... 

a  In  IPI 

tr 

•  •  •  i  1  e 

•  t  •  •  t 

a  ali 

lp  ^p  nPP 

p  P  • » •  p 

_  (-pRlp^i  •••  0 

(4. 3. 1.6) 


Hence*  in  general 


a  In  I  PI 
a  % 

d  In  I  Pi 

a  a2 


-  2  pUai  +  2  p12ri2%  + 

=  2  P12R{2§1  +  2  p22 a2  + 


•  •  • 


•  •  • 


+  2  PlpR 
+  2  p2pR 


lP%> 

2P*P 


AlS-iZL  a  2  plpR:  a.  +  2  p 

a  &o  lp"1 


2Pr  i  a  j.  .to  oPPa 
k2i£2  +,,,+  *  P  %> 


(4.3.1.?) 


the  constraint  is  aj^  =  1  for 
Lagrangian  multipliers,  taking 
with  respect  to  a^  and  setting 
we  find 


all  i's,  By  the  method  of 
the  partial  derivatives 
them  to  zero;  for  i  =  1 


PU-1)  I  p12r12  •••  plPRlp  T^il 

p12rj2  (  p22-i)  i  ...  p2pR2p  a2  ° 

.  .  ....  .  .  (4.3.1.10) 

plPRlp  p2PR2p  <  PPP-D  iJUj  L0- 

The  problem  is  a  rather  complicated  generalization  of  a 

characteristic  root-vector  problem.  We  must  find  element 

P  ^  (i  =  1,  2,  ...  ,  pj  j  -  1,  2,  ...  ,  p)  such  that  the 

determinant  of  the  super-matrix  (4.3.1.10)  is  zero  and  such 
•  • 

that  P 1 J  are  elements  of  an  inverse  of  a  correlation  matrix, 
i.e.  they  form  a  positive-definite  matrix  whose  principal 
cofactors  are  all  equal  to  each  other,  ar.d  to  the  determinant 
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of  P"1. 

By  solving  this  system  of  equations  (for  non- trivial 
solutions)  we  have  the  set  of  canonical  weights  which 
maximize  our  measure  of  overall  correlation  between  all 
categorical  variables. 

In  the  numerical  solution,  we  employ  the  descent  method 
of  R.  Fletcher  and  M.J.D.  Powell  [1963]  to  minimize  the 
function  In  I  P  t  and  obtain  the  canonical  weights. 

Since  we  cannot  use  the  Lagrange  method  directly  ,  we 
obtain  the  derivatives  for  the  uncontrained  problem! 

The  unconstrained  correlation  matrix  P  has  typical 
element 


,  _  aiRi-ia.1 

iJ  iiii 


(4.3.1.11) 


where  l ^  -  ^/apTr  and  l\  -  / aja 


Hence 


P  = 


-i—1 


— 2R12— 1 


Id 


lx2 


/lip 


0“0 


12-2 

1^2 

-2-2 


%,ripV 

iiip 

— 2R2p^p 

i2^p 


— pR2p^2 


a '  a 
--JT-E.. 


(4.3.1,12) 


he  take  the  derivatives  of  In  I  P|  with  respect  to  a 
where  m  is  a  fixed  subscript  (rn  =  1,  2,  ...  ,  p)i 


m 
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ln.JP  I, 


d  In  I P I 


32 

a  a  p 


a  p. 


i± 


since 


a  In  t  PI 


a  P 


a  p 


ij 
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pij 


»-=* 
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kii 
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a  a 
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r  m  1 


m  1 


lfi  4/j  Ri j— 0  +  <rj  44  Rijai 

j"  Jli  ii  a  +/ Jiiiia 
l1  4/j  /i  _i  S  htj  t j-i 
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HI 

where  {f ^  is  the  Kronecker  delta. 
Hence 


d  In  I  P  1 


32 

ij 


'  m  p.  .  m  P ,  . 

<f.  v-v*  Hi  -a  -  +  R!  .a, 

1  hi,  lt~i  i  44  io-i 


-  <f 
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»  ^  m  P*.Pij 


■  _ ii  a  +  f  A.i _ a 

1  ii/j  1  j  *iij  ij4jJ 
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mj 


im 


=  I 


i*  R  .a.  +  £  -„■  ■■.■•  n:  a. 

j  iraij  rnJ“‘)  i  iiim  im_1 

i 

mj  .  im 

^  pm.i  P  -  r->  ^im p 

**  — “5 -  a_  +  L  —  1  ”a -  a 
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1 

T“  1  £  — 7—  +  I 


Mj  h 


P 

2  — r—  R!  a. 

i  i  i  inH- 

« 


^  Eit)  *®j  +  r  p  p 1 

-  ^2-m  j  W  i  i»  J 


2  p raj  2 

■  2  ™*“ "*  R-  a  •  “  «  a 

a  j  0  roj—j  —m 

*m  •*  *m 


(if.  3.1.14) 


since  2  P  .  Pm^  =  2  P.  Pim  *  1, 

j  mj  j  in 


d  In  IP}  _ 


d  a„ 
-m 


2  p™*'  2 

2  1  R  j  a  •  "  n  a 

Bit  mJ’"J  a  ^  ""i11 
i'm  J  ''j  *m 


(if. 3. 1.15) 


We  must  solve  these  equations  in  order  to  minimize 
In  Jpjand  to  obtain  the  canonical  weights. 

To  obtain  the  gradient  or  In  |P|  we  evaluate  the 
(^1  +  ^2  +  •••  +  J^k  ”  ^)  expressions 


In  IP! 


2  pmx  p 

I  RulSl  +  •  •  •  *  - 
ml  ll 


m,m-l 

- 1 

^m-1 


Rm,m-l-m-l 


(pmm- 1) 


+  •••  +  »  Rmk%  (^•3.1.16) 

lk 


since  Rmm  =  I  and  am  has  -  1)  components. 

Subroutine  FUNCT  places  In  (  P I  into  F,  and  the  gradient 


vector,  calculated  by  the  above  formula,  and  into  G, 
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4.3*2  Description  of  the  Computer  Program  for  FPM 
This  is  the  computer  program  for  obtaining  Minimum 
Determinant  Solution,  in  brief i  FPM. 

The  listing  of  this  program  is  in  Appendix  C*  the 
data  are  stored  in  TAPE  10.  This  program  proceeds  as  follow* 

(1)  The  main  calling  program  has  the  following  opera¬ 
tions  t 

(a)  Call  Subroutine  10,  for  data  INPUT  from  TAPE 
10,  the  temporary  storage, 

(b)  Call  Subroutine  FKFP  (IBM  SSP)  to  find  the 
minimum  of  In  IP!  . 

(c)  After  the  Subroutines  have  been  completed,  the 
main  calling  program  will  output* 

(i)  The  canonical  weights. 

(ii)  The  determinant  of  'hj  calculated  correla¬ 
tion  matrix,  ,e.  I P|  . 

(iii)  The  gr t  U  ,ts  of  In  |P|  . 

(iv)  Canonic^...  weights  in  normalized  form. 
(Error  codes,  if  any,  and  the  number  of  iterations 
needed  are  also  stated  as  output.) 

(2)  Subroutine  10 *  This  Subroutine  will  READ  from  the 
TAPE  10,  all  needed  information,  and  output i 

N  -  Number  of  variables  involved, 

LIMIT  -  Maximum  number  of  iterations. 

EPS  -  Permissible  error  during  iterations, 

EST  -  Estimated  minimum  of  the  given  function. 
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R  -  The  super-matrix  which  has  been  produced  from 
C-E-R  program,  in  the  form  of  a  row-wise  list. 

The  Subroutine  CONEC  is  called  to  construct  an  array 
from  the  super-matrix  R,  needed  for  the  Subroutine 
FMFP. 

(3)  Subroutine  FMFPj  This  Subroutine  is  from  IBM  SSP 
(Scientific  Subroutine  Package)  and  was  developed 
from  the  Fletcher  and  Powell  process  (System/360- 
CM-03X  Version  III  -  H20-0205-3.  223). ^ 

FUNCT  -  User  written  subroutine  for  minimizing  given 
function  and  calculate  gradients. 

N  -  Number  of  variables. 

X  -  Vector  containing  initial  weights,  and  it  will 
contain  the  final  result. 

F  -  A  single  variable  containing  the  minimum  function 
value . 

G  -  Vector  containing  the  gradients. 

EST  -  Estimated  minimum  function  value. 

EPS  -  Expected  absolute  error, 

LIMIT  -  Maximum  number  of  iterations. 

IER  -  Error  codes i 

IER  =  0,  convergence  was  obtained. 

IER  =  1,  no  convergence  in  LIMIT  iterations. 


3)  But  an  error  ir  the  IBM  SSP  program  had  to  be  corrected 
first. 
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IER  «  -1,  error  in  gradient  calculation. 

IER  a  2,  no  minimum  exists. 

H  -  Working  storage* 

The  Subroutine  FUNCT  is  the  user  written  subroutine 
for  In  IP!  to  be  minimized.  Our  FUNCT  subroutine 
will  call  Subroutine  MINV  (another  IBM  SSP)  for 
finding  a  matrix  inverse,  needed  for  the  interme¬ 
diate  calculations. 

This  user  written  subroutine  FUNCT  is  called  by  the 
subroutine  FMFP  (IBM  SSP)  whenever  a  new  set  of 
canonical  weights  is  determined.  Within  the  FUNCT 
the  correlation  matrix  P  is  calculated  for  each  new 
set  of  canonical  weights  then  the  subroutine  MINV 
(IBM  SSP)  is  called  to  find  P”*,  the  two-dimensional 
array  of  P  is  packed  into  a  single-dimensioned  array 
as  INPUT  argument  for  MINV  (since  P  is  in  storage 
mode  1,  pnly  the  upper  triangular  part  of  P  is  pack- 
ed),  as  the  P  is  found  through  MINV,  and  back  into 
the  FUNCT  the  gradient  is  calculated  for  determining 
the  convergency  of  the  gi/cn  function. 

In  the  correlation  matrix,  the  (i,  j)  element  is 


(4. 3. 2.1) 


and  for  the  gradient,  it  is  the  partial  derivatives 
of  In  | P|  with  respect  to  am  (the  categorical 
weights),  hence 


a. 
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(4. 3*2. 2) 


d  In  IP1  =  i_L 

3  fljj  Anl  j  ^  j  £m 

where  /„  =  J  a*a  and  /,  =  J  a'-a .  ,  and  at  the 

D  ’“HMD  j  j  j 

sane  time,  the  value  of  In  |P|  is  calculated. 

Computer  Program  FPM 
Flow-Chart 


(8) 


4,4  Reduction  to  Original  Scales 
4,4,1  Description  of  Algorithm 
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The  weights  found  by  the  Minimum  Determinant  Solution 
must  now  be  translated  into  the  desired  categorical  scales 
based  upon  the  E  matrix  (section  4,1.1), 

For  the  choice  of  standardized  scales ,  we  introduce  the 
scalar 


v  ^tuvqSj 
Ki 


n-tuy-Wi 
n 

where  Ilgtuvq  i0  a  vector  of  marginal  sums,  viz,, 
Di  -  [n,  ,  nP  .....  n  ] 

b  Mil  X  •  •  •  •  Cl  •  •  •  I  I  M 
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n*  =  [n  4  ,  n  o  .....  n  _  ] 

V  ,  i  i  ,  1  i  ■ «  *  c ,  , . , *  * 


4* 


n'  n  ~  £n  ,.  n  »,  ...  .  n  3 

•  •  •  •  M  •  •  I  ll  •  •  •  |C  li  i  U  f 


w!  *  a!  t!“1} 

- 1  -l  l 


(4,4. 1.1) 


(4.4.1. 2) 

(4. 4. 1.3) 


«(-l> 

ii 


is  a  conditional  inverse  found  in  the  program 
C-E-R  (section  4.1.1). 


n  =  grari  total  ~  nL  j,  ~ 

o  ill* 

s  n1  i  = 

•  •  «  v  • 

i's  [i,  i »  ...  *  0 


n  *  ’ 

•  •  • 


n'  u  , 

•  •  U  •  • 


(4. 4. 1.4) 


(4. 4. 1.5) 


n  are  marginal  totals  which  are  obtained  in  the 

process  of  construction  of  the  E  matrix, 

* 

We  now  form  a  new  vector  w^  by  subtracting  from  each 
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element  of  w^*  i.e. 

*'  .  . 
-i  s  -i  "  ki-*  1 


(4.4.1. 6) 


and  thus 


2i....2i  ’  nl....wll  +  "2.. ..*12  +  •” 

+  nr1....wirl 

=  "l....<wU  "  V  +  n2....*w12  "  kl* 


+  •••  +  "rj.. . . <wlrj  *  V 

n*  w,  -  nk-  =  nk.  -  nk.,  =  0  (4. 4. 1,7) 

—S  .  •  .  »“1  111 


and  similarily 


n'+  w~  -  n*  w*  =  n! . .  wj  =  n'  w-  -  0  (4. 4. 1.8) 

This  is  consistent  since  each  of  the  rows  and  columns  of 


every  E.  ,  matrix  sums  up  to  zero. 


r  j  Midi 

Now  let 


where  w^2^  =  Cwil»  wi2»  •••  wir.-^  and 
-stuvq  *s  def^ned  as  *n  (4.4. 1.2), 


#(2) 

-stuva-i 

p  . - - 

n 

r  *2  *2  *i 


(4.4.1.?) 


then 


*  (2 ) 

**(2 )  _  J*i _ 


(4.4.1.10) 


mf  #  #  # 

hence  w^  for  all  i’s  are  the  categorical  weight  vectors  for 


the  entire  E  matrix. 

Since  #/2\ 

n.  *.»(2)  -  _ ~stuv.q— i  __ 
— stuvq— i 

*  \ 


~  e  n  (4,4.1.11) 


therefore 
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**  _ 

n* .  _ w-  « 

--stuvq-i  _  - - „  j  (4.4.1.12) 

n  n 

We  conclude  that,  if  each  of  the  original  categorical 
responses  is  translated  into  a  new  set  of  scaled  weights 
obtained  in  this  manner  then,  for  the  sample  at  hand,  the 
mean  of  the  scaled  weights  will  be  zero  and  the  standard 
deviation  will  be  one* 

Now  we  let,  for  subject 

## 

uij  “  -i  *ij  and  ukj  ’  *k  (4.4.1.13) 

## 

it  remains  to  be  shown  that  the  w^  can  be  replaced  by  jn 
without  change  of  the  correlation  between  resulting  canoni¬ 
cal  variables. 

Let  there  be  s  factors  (response  variables),  let  factor 
1  have  r^  levels  (i.e.  variable  1  has  ^  distinct  categorical 
states),  factor  2  have  rg  levels,  .*•  and  factor  s  have  rg 
levels.  In  analogy  with  the  Fisher-Lancaster  approach,  we 
introduce  r^  +  Tg  +  ...  +  rg  pseudo-variables.  Each  response 
vector  consisting  of  s  categorical  responses  (one  to  each 
factor),  is  translated  into  a  vector  of  0’s  and  i’s;  if  the 
response  was  [c^,  Cg,  ,.,  ,  c  ]  the  resulting  vector  will  be 
a  rolled  out  row  vector,  consisting  of  s  parts;  the  first 
part  will  have  a  1  in  position  c^  and  zeros  elsewhere;  the 
s^*1  part  will  have  a  1  in  position  c_,  and  zeros  elsewhere. 
For  example <  if  there  wore  four  factors  with  [3,  **,  2,  5] 
levels  respectively,  and  if  an  experimental  unit  had  a  res¬ 
ponse  of  [2,  1,  2,  3],  the  corresponding  y-vector  would  be 
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mtmei  msi a  • 

The  £  matrix  consists  of  the  matrices  of  corrected  stuns 
of  squares  and  products  of  these  observations.  Let  j  denote 
the  ith  part  (i  »  1,  2,  ...  ,  s)  of  this  vector  for  subject 
No.  j.  Let  yj  denote  the  average  over  the  entire  sample, 
obviously 


•  •  • 


n0  $  set 

C  % 


n  a  %  %  #  • 

t  c  •  •  • 


nr  3 

rl*  •  •  • 


n  r  3 

•r2 • • • 


(4.4.1.14) 


etc. 
* » 


Let  =  x'i j  -  1{  t  then  Eu  =  Z  ytj  (4.4.1.15) 

J— J. 

the  matrix  of  sums  of  squares  and  products  of  the  elements 


*  • 


s  * 

=  L 
• 

V 


#  • 


(4.4.1.16) 


of  y .  .  ,  and 

Ei*  =  **ij 

J  «  # 

Now  we  let  u^  =  w!  and  ukj  s  wj[  represent 

two  scaled  responses  for  subject  j.  Over  the  entire  sample, 

we  can  thus  calculate  a  canonical  correlation  between  scaled 

responses  i  and  k,  as 

#  •  8  <#  #•*  S*  *  •  # 

*i^ij  *kj  2k  +  *kj  -k 

+#>i^  &  k*A  +  ^ 1 

“  -i'Eik  *k  +  M’  Eik  2k  +  si  Eik  +  k.k^'E^  i 


*  I  * 

=  2i  Eik  2k 


(4.4.1.17) 


where  the  k^'s  are  defined  in  (4.4.1.1), 


?0 


Since  all  row  and  column  sums  of  are  zero,  the 

canonical  correlation  between  and  remains  unchanged 

#  ##  # 
if  each  wi  is  replaced  by  w^  .  And  since  w^  differ  from  wi 

only  by  a  scalar  multiplier,  the  canonical  correlation  be¬ 
tween  and  Ujj.  is  obviously  unchanged  if  w*  is  replaced  by 


-i  * 


Recall  that  R  =  T'“1JE  T*"1} 


i  (-1 ) 


,(-1). 


i(~l ) 


,  where 


(4,4.1.18) 


hence  Rik  =  Ti*"1^Eik  Tk~1^  and 

j/  plk-<rik)RiA  =  2 

where  tf^  is  the  Kronecker  delta  (from  4.3.1.10). 


Then  E  (  pilc  -  (Tik)  T('1)'alr  =  0  . 


-k  - 


(-1) 

Let  T£  ak  =  w^.  ,  hence 


t!"1}  I  (  P  lk  -  «f.v)  E..  w.  —  0 
l  k=1  v  ik'  lk  -k  - 


(4.4.1.19) 


(4.4.1.20) 


thus  the  w^  are  the  weights  applicable  to  the  unreduced 
matrices  Ej^  (i  s  1,  2 ,  ...  ,  sj  k  —  1 ,  2,  ...  ,  s)  and 
therefore  to  the  original  variables. 


4,4,2  Description  of  the  Computer  Program  for  RTE 

This  is  the  computer  program  for  obtaining  the  original 
categorical  scales  for  E  matrix,  in  brief «  RTE,  The  listing 
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of  this  computer  program  is  in  Appendix  E.  And  this  program 
proceeds  as  follows 

(1)  Data  stored  in  TAPE  10,  are  read.  In  this  program, 

,  we  need  the  following  informations 

Record  Is  NWTS  -  Number  of  weights. 

Record  2s  NSETS  -  Number  of  sets. 

(NRST ( I ) , 1=1 , NSETS )  -  Number  of  rows  in 
each  set. 

Record  3*  (X(I), 1=1, NWTS)  -  Canonical  weights  from 
the  Minimum-Determinant  Solution. 

Record  4s  ( (NT(JA.I) .  1*1, IA )  ,JA=1 , NSETS)  -  Marginal- 
totals  for  each  set. 


Record  5*  NTAL  -  The  grand  total. 

Record  6s  T(I,J,K)  -  T  conditional  inverses. 


(2)  Packed  a^  for  all  i's,  the  canonical  weights  into 
a  two-dimensional  ar'-ay  for  calculating  v^. 

(3)  Calculates 

(a)  w?  »  a£  T^"1^  (4. 4. 2.1) 

n- 

(b)  k.  =  — A  ■  (4. 4. 2. 2) 

n 

(c)  ^  =  w.  -  k-i  (4. 4. 2. 3) 


(d)  pi  = 


nlwil 


il  +  n2Wi2  + 


*2 

+  Vis 


(4. 4. 2. 4) 


(4)  Calculates 


(4.4.2. 5) 
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(5)  WRITE  the  resulting  categorical  weights  for  E 

## 

matrix,  i.e.  for  all  i's. 


CHAPTER  V 


RELATION  TO  INVERSE  OP  CANONICAL-PARTIAL 
AND  CANONICAL-MULTIPLE  CORRELATION  MATRICES 
It  is  well  known  that  the  diagonal  elements  of  the 

1 

inverse  of  a  correlation  matrix  are  - 5 -  , 

^  "  ^i.rest^ 

where  p  ^  reg^.  is  the  multiple  correlation  between  the  ith 
variable  and  the  others  in  the  set.  Also,  it  is  well  known 
that  normalization  of  the  inverse  matrix  into  a  correlation 
matrix  and  change  of  all  signs  in  the  off-diagonal  elements 
produces  the  matrix  of  partial  correlations  of  each  pair  of 
variables,  given  the  rest.  Hence  in  the  inverse  matrix,  the 


off-diagonal  elements  are 


-  P.  . 

l.i,  rest _ 

—  — 

rest^  ^  "  p j.rest^ 


(5.1) 


Using  this  structure  of  an  inverse  we  may,  analogoji  *.y, 


calculate  canonical-partial  and  canonical-multiple  correla¬ 


tions  and  produce  a  matrix  which  could  be  regarded  as  the 
inverse  of  the  matrix  P.  This  procedure  is  outlined  below. 

We  constructed  an  E  matrix  for  some  categorical  variables 
with  different  responses  and  transformed  the  E  matrix  into  a 


rank-reduced  super-matrix  R  with  the  diagonal  matrices  equal 
to  I  (the  identity  matrix).  Hence 
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R  = 


1?11  R12  Rl? 

R12  R22  **•  R2p 


•  •  til  • 


•••  R__ . 

Ip  2p  pp- 


where  R- i  =  R00  =  . . .  =  R_  =  I  , 

11  22  pp 

We  first  partitioned  the  super-matrix  R 


(5.2) 


R12 1  R13  •**  Rlp 


R23  •••  R2p 


I  ...  R. 


•  t  •  • 


r5p  •  •  •  1 


(5.3) 


and  then  obtained  a  new  matrix 


R*  _  fRn  RIa 

A  —  ^  t  * 

-R12  R2  2 


where  Rj^  =  I  -  Rip|  j"  1 


=  i  -  rRo, ...  r  i 

L  23  2pJ 


r3p" 


(5.1*) 


r  p  * 
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and  R12  =  R12  -  [r15  ...  Rlp] 


•••  Rlp] 

.  I  ...  R^p. 

*R23‘ 

•  Ml  • 

• 

Lr*  _  T  J 

L  R  • 

“3p  A  "2p 

The  square  of  the  canonical-partial  correlation  of  set 
1  and  set  2  gi\en  the  others  is  the  largest  characteristic 


root  of  Rn  R12  R22  Rj2  ,  l.e. 


p12.34...p  =  0hmax<Rll1  R12  R221  R12* 


(5.5) 


But  for  convenience  in  calculating  the  characteristic 
root,  we  first  find  a  T*  such  that  R^  »  T*T*  and  then 
invert  T#,  obtaining  T*"1!  then  R^1  =  (T  ”*) '  (T*-1).  Since 


Ch(ABC)  *  Ch(CAB)  then 


4.34.. .p  -  Chmax(RU1  4  4?  4> 

“  Chmax*T  T  R12  R22  R12* 

“  °Vx(T  R12  R22  R12  1  > 


(5.6) 


in  which  the  matrix  inside  Ch(...)  is  symmetric  and  real. 

By  the  same  process  we  can  obtain  all  of  the  sample  canonical- 
partial  correlation  between  any  two  sets  of  categorical  var¬ 
iables  given  the  others,  by  taking  the  square  root  of  the 
characteristic  roots 


P13.^...P’  *  Plp.234..(p.-1)»  •••  » 

P(p-l)p.l23...(p-2)4  (5,? 

We  can  place  these  canonical-par  bi?;l  correlations  into 
a  (p  x  p)  matrix  (off-diagonal  terms). 
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For  the  canonical-multiple  correlations.  We  partitioned 


the  super-matrix  R 


where  R. 


12_ 

13  * 

•  “ip 

R23  * 

9  9 

•  R2P 

2p 

R3P  ‘ 

.  I  - 

12 

R13  * 

•  Rlp 

R23  * 

*  R2p 

• 

I 

.  R 

23 

•  • 

*  3P 

•  « 

9 

2p 

R3p  ‘ 

.  I  . 

#»  # 
R12  R22 


(5.8) 


R12  is  the  transpose  of  R12  * 

and  the  square  of  the  canonical-multiple  correlation  of  set 
1  vs.  the  others  is  the  largest  characteristic  root  of  the 


.  *  *  i 

matrix  R12  R22  R12  . 

Hence  P?.23..,p  =  Chmax(R12  R221  R12* 


(5.9) 


and  by  the  same  process  we  can  find  all  of  the  squares  of 
the  canonical-multiple  correlations  of  one  set  vs.  the  others 

i,G‘  P2.13...p*  p3.124...p .  p  p.123. .  •  (p-1 )  (5,1C) 


V1  =  1  -p1.23...p  -  v2  ■  1  -  p2.13...i 


.  9  •  •  •  f 


VP  “  1  "  P 


p,12. . • (p-1 )  • 


(5.11) 


Let  us  denote  xhe  canonical-partial  correlation  for  i1 


7? 


and  j  "  sets  given  the  others  by 
uij  “  ^ij.k...  1 

then  the  inverse  of  a  correlation  matrix  would  be 


(5.12) 


V1  v2  v/v  1  v3 


V1  vp 


P  = 


V1  v2 


V1  vp 


In  matrix  form. 


v0  v« 

2  p 


,  P’1  =  D  _A  (21  -  U)D  i 

2  mm  2 


v2  v3 


•  •  •  • 


v3  VP 


V2  VP 


(5.13) 

(5.14) 


where  U  is  the  matrix  of  the  canonical-partial  correlations 
with  typical  element  u. and  D  _i  is  a  diagonal  matrix  with 


typical  element 


CHAPTER  VI 


i 

| 


\ 


ILLUSTRATIONS 

6„1  Three  Categorical  Variables*  Each  With  Three  States 
Let  us  consider  a  three-set  case,  each  having  three 
states,  for  example «  color,  taste  and  harvesting  region  of 
fruit.  The  contingency  table  is  then  constructed  as  follow i 

(1)  The  first  set  (color)  i  Red,  Blue  and  Yellow. 

(2)  The  second  set  (taste)  i  Sweet,  Sour  and  Bitter, 

(3)  The  third  set  (region)  i  North,  South  and  Central. 
Assume  that  the  contingency  table  (3x3x3)  obtained  from 
a  taste  testing  experiment  is 

Table  6.1.1 


N 

c 

s 

SW 

S 

B 

SW 

S 

B 

SW 

s 

B 

R 

30 

70 

30 

m 

28 

10 

53 

5 

7 

B 

10 

50 

40 

15 

25 

_ 

30 

35 

25 

10 

Y 

75 

20 

5 

27 

23 

1 

30 

B 

2C 

There  are  throe  two-way  tables i 

(a)  Tastes  vs.  Colors, 

(b)  Regions  vs.  Colors. 

(c)  Tastes  vs.  Regions. 


7  8 


Table  6.1.2 


Tastes  vs.  Colors 


SW 

s 

B 

Sub-total 

R 

120 

103 

47 

270 

B 

60 

100 

90 

250 

Y 

132 

20 

48 

200 

Sub-total 

312 

223 

185 

720 

Table  6.1. 

3 

Regions  vs.  Colors 

N 

C 

S 

Sub-total 

R 

130 

75 

65 

270 

3 

100 

70 

80 

250 

Y 

100 

50 

50 

200 

Sub-total 

330  j 

195 

195 

720 

Table  6.1.4 

Tastes  vs.  Regions 


N 

c 

s 

Sub-total 

SW 

115 

79 

UP 

312 

S 

l4o 

53 

30 

223 

B 

75 

63 

47 

185 

Sub-total 

330 

195 

195 

720 

80 


Prom  those  contingency  two-way  tables,  we  find  the 
following  E  matrices i 


-  168.7500  -93.7500  -75.0000” 

11 

» : 
H 

w 

-93.7500  163,1944  -69.4444 

1 

.  -75,0000  -69.4444  144,4444. 

“  176.8000  -96.6333  -80.6666“ 

E22  = 

-96.6333  153.9379  -57.2986 

_  -80.6666  -57.2986  137.4653- 

“  178.7500  -89.3750  -89.3750“ 

E33  " 

-89.3750  142.1875  -52.8125 

-  -89.3750  -52.8125  142,1875- 

“  3.0000  19.3750  -22.3750“ 

E12  ~ 

-48.3333  22.5964  25.7638 

-  45.3333  -41.9444  -3.3888- 

6.2600  1.8750  -8.1250“ 

E13  = 

-14.5833  2,2916  12.2916 

-  8.3333  -4.1666  -4.1666- 

“  -28.0000  -5.5000  33.5000“ 

E23  s 

37.7916  -7.3958  -30.3958 

.  -9.7916  12.8958  -3.1042. 

Using  the  Gauss-Doolittle  foreward  method,  we  then  find 
matrices. 


■  0.076980 
. 0. 052705 


0.0 


0.094868 


0.0  ' 

0.0  . 
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m (“1 )_ 
a2  “ 


T(-iL 
3  “ 


0.075207  0.0 

0.054355  0.099447 

0.074958  0.0 

0.050673  0.101273 


0.0  1 
0.0  J 
0.0  | 
0.0  J 


R  *  Dt(-1)  e  Dt(-1)* 

R11  R12  R1J  " 

R  s  R12  R22  R23 
' R '  13  R23  R33j 


where 


0.0‘ 

l.Oj 


R22  “  R33 


'  0.017368  O.I6O876 

Ri2  ~ 

I-O.322955  0.073841 


035986  0.038980 


‘  0. 

-0. 


078842  -0.021350 


-0.157504  -0.148522 
0,167258  0.008479 


,(-1)  s 


T(-i)  o 


0 


,(-D 


After  initialization  of  the  canonical  weights,  by  the 
process  of  the  Fletcher-Powell  method,  the  normalized  canoni¬ 
cal  weights  for  each  set  turned  out  to  be 


-  4p?a!J jf^iyR'P'JWSW): 
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a{  =  [  0.0547  0.998  ] 

a£  =  [  0.929  -0.369  ] 

a}  *  t  O.856  0.516  ] 

These  canonical  weights  will  minimize  the  log  deter¬ 
minant  of  the  canonical  correlation  matrix,  we  further  cal¬ 
culate  the  matrix  with  elements  8^  aj  = 


(6.1.1) 


*  1.00000 

-0.33853 

-0.07564“ 

p  * 

-0.33853 

1.00000 

-0.25115 

• 

-0.07564 

-0.25115 

1.00000- 

inverse  of 

P  is 

■  1.16571 

0,44484 

0.19992- 

a 

0.44484 

1.23707 

0.34435 

-  0.19992 

0.34435 

1.10160. 

(6.1.2) 


and  I  P |  =  O.8O373,  the  minimum  determinant. 

For  comparison  ,  an  attempt  will  be  made  to  approximate 
P  *  by  the  canonical-partial,  canonical-multiple  correlation 
described  in  CHAPTER  V.  We  partition  the  super-matrix  R  in 
the  following  manner  1 


* 


R 


R 


I 


r  »  * 

R11  R12 

#  1  # 

LR12  R22J 


~  R1 3R i 3  = 


-  R  R  *  = 

Il23n23 


'0.997184 

.0.003669 

'0.953133 

.0.027605 


0.003669' 

0.993328. 

0.027605' 

0.971949. 


0.028826 


R13R23  “ 


.-0.348544 


0.154526 

0.087210. 


'  1.001410  0.0 
.-0.003692  1.003350 


U 


-  T*"1  R*  R*-1  R*’  T*"1' 
12.3  “  il  k12  k22  k12  a1 

0.025269  0.004788 

0.004788  0.138094 


The  canonical-partial  correlation  for  set  1  and  set  2 
given  set  3  is  the  square  root  of  the  largest  characteristic 
root  of  U12  y 

P12.3  =  \/CN  ax<U12.3>  =^0-1 36296'  =  0.371882 

We  then  continue  the  process  and  partition  the  super¬ 


matrix  R  as  follow,  in  order  to  find  P13  £» 


1  R13  R12*" 

* 

•RU  RI3" 

R13  1  R23 

-R12  R23  1  " 

,  R  = 

_  *  »  * 
Lr13  r33J 

where 


'  0.973817  -0.006096' 

11  ~  1  “  R12R12  = 

.-0.006096  0,883637. 

■ft 

0.947213  -0,024811’ 

_  T  Dtp  = 

33  *"  x  *  *23  23 

-0.024811  0,977869. 

0.011812  0.040196  ' 

13  e  R13  “  R12R23  = 

.-0.143635  -0.071428  . 
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1.056430 

0.006659 


0.0 

1.063800 


U 


_  T*-l  R*  R*-l  R*‘  T*-l 
13.2  "  A1  k13  k33  k13  1 


0.001875  -0.005278 

-0.005378  0.311262 


The  canonical-partial  correlation  of  set  1  and  set  3 
given  set  2  is  the  square  root  of  the  largest  characteristic 


root  of  2, 

p13.2  =  i/clWul3.2>  “  y] °-°320,*9  =  0.179023 

For  the  canonical-partial  correlation  j,,  we  proceed 
as  follow 1 


'  I 

R23  r12 " 

■RL  R23- 

R23 

i  nb 

,  R  = 

*  t  * 

D  Q 

1 — 
w 

to 

r13  1  - 

UK23  k33  j 

where 

'0.888838  0.021792' 

.  0.021792  0.968666. 
0.992489  -0.003086' 
-0.003086  0.998024 

-0,184380  -O.I56307' 
0.167301  0.003785. 


* 

22  = 

I 

“  R12R12  “ 

33  * 

I 

-  «i3«13  = 

* 

23  s 

R23 

"  R'l2R13= 

1,060690  0.0 
-0.02491/  1.016320. 


The  canonical-partial  correlation  of  set  2  and  set  3 
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given  set  i  is  the  square  root  of  the  largest  characteristic 


root  of  U23.1* 

TT  -  V*-1  R *  R*-1  R* '  T*"1 

U23.1  “  T2  R23  R33  23  *2 

0.066282  -0.035792' 

-0.035792  0.030794. 

P23.1  “  =  V  °-088487  “  °-297466 

Hence  the  canonieul-partial  correlation  matrix  is 

"  1.0  0.37188  0.17902“ 

0.37188  1.0  0.29?47 

-  0.17902  0.29747  1.0 


To  find  the  canonical-multiple  correlations  from  the 
super-matrix  R,  we  will  partition  the  R  into  the  following 
form 


~  I 

R12 

R13 

I 

R* 

R  = 

R12 

I 

R23 

= 

*  * 

-R12 

12 

R22  - 

^13 

R;.~ 

<0 

I  _ 

where 


12 


=  [R12  R^]  and  R 


•a- 

22 


R 


LR23 


23 

I 


and  V1#23  = 


12  “22  12 
‘0,028009  0,001189' 
.0.001189  0.143878. 


The  canonical-multiple  correlation  of  set  1  vs  the 
others  is  the  square  root  of  the  largest  characteristic  root 

of  Vl,23* 
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p1.23  '/°WV1.23)  "  0.143890  =  0.379328 

and  the  associated  characteristic  vector  is 
[  0.010257  0.9999 47  ] 


The  canonical-multiple  correlation  of  set  2  vs  the 
others  is  obtained  by  partitioning  the  super-matrix  R  in  the 
following  manner i 


'  1  R12 

R23  " 

“  I 

R23 

25 

R12  1 

R13 

25 

*  • 

,R*  R* 

I  _ 

-R23 

1 

where 


R23  =  ^  R12  R23^  abd 


« 

R33  = 


l*R13 


13 

I 


*  *• 

R23  R33  R23 

0.170075  -0.0535^9 

. -0.0535^9  0,059554 


The  canonical-multiple  correlation  of  set  2  vs  the 
others  is  the  square  root  of  the  largest  characteristic  root 

of  V2,13’  _  _ 

p2.13  ■  V  CtW(V2.13>  -/o.1?1763  =  0. 437908 
and  the  associated  characteristic  vector  is 

[  0.926861  -0.375404  ] 


The  canonical-multiple  correlation  of  set  3  vs  the 
others  is  obtained  by  partitioning  the  super-matrix  R  in  the 
following  manneri 


"*zrz?z?^w*g$2&^^  jgy/Wiiji?-,^'*  j^gy 


87 


*  I 

*13 

"b  1  r 

I 

R  « 

*13 

1 

R12  “ 

B** 

where 

-*23 

R12 

I  J  *- 

R13 

*13* 

[r13 

R*3]  an<* 

Rn 

I  R 
l12 


12 

I 


_#  _#„i  *• 

V3.12  “  R13  RU  R13 


0.076253  0.036862  1 
0.036862  0,029523 J 
The  canonical-multiple  correlation  of  set  3  vs  the 
others  is  the  square  root  of  the  largest  characteristic  root 

of  V3.12* 

P3.12  “  ^0lW<v 3.12>  “  \/ 0,096 532  -  0.310695 
and  the  associated  characteristic  vector  is 
[  0.876174  0.481994  ] 

In  accordance  with  the  discussion  in  CHAPTER  V, 


f  or  i  ^  i 


at  this  stage,  the  sign  of  the  partial  correlation  become 
important.  A  canonical-part ia}  correlation  is  defined  to  be 
positive  but  the  entries  in  the  inverse  of  a  correlation 
matrix  can  be  positive  or  negative,  Cne  technique  of  choos¬ 
ing  signs  is  to  use  those  which  produce  an  inverse  whose 
diagonal  elements  are  near  unity.  In  the  present  example, 
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assuming  all  partial  eorralationa  to  be  negative  we  obtained 


an  inverse  whose  diagonal  elements  were  does  to  one*  namely* 


-1.1680? 

p-1  >  0.4470? 

.  0.20356 


0.4470?  0.20356- 
1.12373  0,34811 
0.34811  1.10684- 


and 

-  0.999^6  -0.33946  -0.07705*1 
P-tp-l)"1*  -0.33946  1.00199  -0.252?0 

-0.07705  -0.25270  0.99711J 

This  is  quite  similar  to  the  correlation  matrix  (6.1.1) 
and  (6.1.2)  based  upon  the  minimum-determinant  solution. 

Three  principally  different  approaches  (canonical-multi¬ 
ple  initialisation,  minimum-determinant  and  construction  of 
the  inverse  of  a  correlation  matrix)  lead  to  very  similar 


results.  This  fact  is  additional  evidence  of  the  existence 
of  optimumscale  values  derived  from  the  data,  quite  indepen¬ 
dent  of  the  method  of  analysis. 

The  reduction  to  the  original  categorical  weights  for 
the  E  matrix  is  as  follows 


«  C  0.054? 

0*998  ] 

-  C  0.929 

-0.369  ] 

■  C  0.856 

0.516  ] 

The  marginal  totals  for  each  set  aro 
*  [  270  250  200] 

■  [  312  223  185] 

nj  =  [  300  195  195] 


JJ+ j. 
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Tho  grand  total  isi  n«  720 

Reduction  to  the  original  categorical  weights  results 
are 

w{  *  [0.07054  1.08735  -1,45442] 

w£  »  [1.06254  -1.25980  -0.27338] 

wj  *  [0.93106  -0.08640  -1.48923] 


6.2  Three  Categorical  Variables,  with  2.  5  and  2  States 
Example  of  a  contingency  tablet 
Table  6.2.1 


Men 

Women 

A 

B 

C 

D 

E 

A 

C 

D 

E 

Survive 

741 

742 

3'+5 

188 

79 

896 

718 

276 

93 

35 

Death 

360 

297 

150 

75 

79 

420 

334 

175 

59 

41 

Sub-total 

1101 

1039 

495 

263 

158 

1316  1052 

451 

152 

76 

Remark!  From  Cramer’s  "Mathematical  Methods  of  Statistics" 
pp  450,  table  30,7. 1. 


(1)  The  first  set  (sex)  t  Wen,  women. 

(2)  The  second  set  (age)  1  A  -  15  to  24  year-old  group. 

B  -  25  to  34  year-old  group. 
C  -  35  to  44  year-old  group, 
D  -  45  to  54  year-old  group. 
E  -  55  year-old  and  above. 

(3)  The  third  set  (risk)  1  Survive,  death. 


Of  course,  categorical  scaling  is  required  for  the  five- 


state  set  only  since  weights  are  arbitrary  for  the  wo-level 
factors*  We  will,  however,  proceed  formally  as  ir  the  pre¬ 
vious  case* 

There  are  three  two-way  tables* 

Table  6*2*2 

Sex  vs.  Age 

Women 
1316 
1052 
451 
152 
76 
3047 

Table  6*2*3 

Sex  vs.  Kink 

Women 
2018 
1029 
3047 


Sub-total 

4113 

1990 

6103 


Men 

Survive  2095 
Death  961 
Sub-total  3056 


Sub-tc  *1 


6103 


Sub-total  3056 


Table  6*2.4 


Age  vs*  Risk 


I 


A 

B 

C 

D 

E 

Sub-total 

Survive 

1637 

1460 

621 

281 

114 

4113 

Death 

780 

631 

325 

134 

120 

1990 

Sub-total 

241? 

2091 

946 

415 

234 

6103 

The  E  matrices  are  as  follows 


'  1525.7467 

-1525.7467' 

11 

H 

H 

w 

.-1525.7467 

1525.7467. 

“1459.7840 

-828.1086 

-374.6489 

-164.3544 

-92.6721- 

-828.1086 

1374.5849 

-324.1170 

-142.1866 

-80. 1727 

E22° 

-374.6489 

-324.1170 

799.3646 

-64.3274 

-36.2713 

-164.3544 

-142.1866 

-64.3274 

386.7803 

-15.9118 

-  -92.6721 

-80.1727 

-36.2713 

-15.9118 

255.0280. 

'  1341.1224  - 

■1341.1224' 

E33= 

-1341.1224 

1341.1224. 

’  -109.2822 

-8.0418 

21.3025 

55.1940 

40.8275  ' 

E12= 

.  109.2822 

8.0418 

-21.3025 

-55.1940 

-40.8275  . 

35.4673 

-35.4673' 

e13“ 

.  -35.4673 

35.4673 . 

•  8.1091 

-8.1091 ' 

50. 8106 

-50. 8106 

E23‘ 

-16.5386 

16.5386 

1.3187 

-1.3187 

-  -43.6993 

43.6998  - 

i 
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Further ,  we  calculate  the  canonical  correlations  with 
(i,  j)  element  Rjj  fij 


r  1.00000 

1 

-0.10956 

0.02479  “ 

-0.10956 

1.00000 

-0.06845 

• 

(6.2.1) 

L  0.02479 

-0.06845 

1.00000  . 

Here,  the  (1,3)  and  (3.1)  elements  are  positive!  if  we 
want  all  off-diagonal  elements  to  be  negatives  we  can  make 
the  signs  in  a£  negative,  which  changes  the  sign  in  the  (1,2) 


and  (2,3)  elements. 


The  inverse  of  P  is 


“  1.01322 
0.11326 
„  0.03287 


0.11326 
1.01736 
0.0724 5 


0.03287  “ 
0.07245 
1.00577  . 


(6.2.2) 


and  |  P|  =  0.982324 

Again,  to  approximate  the  matrix  P”1  by  canonical- 


partial  and  canonical-multiple  correlations  we  will  make  the 


usual  partitions  of  the  super-matrix  R.  First,  the  canonical- 
partial  correlation  of  set  1  and  net  2  given  set  3  is  obtained 


from 


and  R 
R 


i  r12 

R13 

R{2  1 

R23 

R13  r23 

I 

I  -  R13  R{3  «  0.999385 


94 

~  0.999966  -0.000292  -0.000149  -0.000368  “ 

-0.000292  0.997469  -0.001289  -0.003191 

m 

-0.000149  -0.001289  0.999343  -0.001625 
.  -0.000368  -0.003191  -0.001625  0.995975  - 

R12  "  R12  “  R13  R23 

»  [**0.073369  -0.060854  -0.063638  -0.014562] 

Hence,  the  canonical-partial  correlation  of  set  1  and 
set  3  given  set  3  is  the  square  root  of  the  largest  charac- 
teristc  root  of 


u12.3  -  "n1  R12  *«  -  0.013393 


and 


'12 


.3  *  \/Chniax(U12.3) 


v= 


0.013393  * 

For  the  canonical-partial  correlation  of 
given  set  2,  we  have 


0.115728 

set  1  and  set  3 


R11  *  1  "  R12  R12  *  °» 986946 

R33  ■  I  -  RJ3  R23  *  0,992755 

R13  -  r13  *  r12  R23  88  °*°30655 

U13.2  "  R111r13  RV  Rlj  =  0.000959 
Therefore  the  canonical-partial  correlation  of  set  1  and 

set  3  given  set  2  would  be  the  square  root  of  the  largest 

characteristic  root  of  u13#2*  ^ence 

pl3#2  *  0»030969 

Finally,  the  canonical-partial  correlation  of  set  2  and 


set  3  given  set  1  is 
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R22  "  1  "  R12  R12 
"  0,994638  -0.004365 
-0,004365  0,99644? 
-0.004614  -0.003755 
.-0,000951  -0.000774 


-0.004614  -0.000951  * 
-0.003755  -0.000774 
0.996030  -0.000818 
-0.000818  0.999831  . 


R*3  *  I  -  R{3  R13  «  0.999385 


’  0.007611 ' 
0.051779 
0.027181 
.  0.063763. 


The  canonical-partial  correlation  of  set  2  and  set  3 
given  set  1  is  the  square  root  of  the  largest  characteristic 


root  of  U23.  where 


"0.000058 

0.000396 

0,000209 

0.000488 

U23.1* 

0.000396 

0.002696 

0.001427 

0.003316 

0.000209 

0.001427 

0.000755 

0.001755 

-0.000488 

0.003316 

0.001755 

0.004078 

P23.1  *  0.087103 

So  the  canonical-partial  correlation  matrix  is 

"  l.ocooo  0.11573  0.03097  " 

0.11573  1.00000  0.08710 

.  0.03097  0.08710  1.00000  , 

For  the  canonical-multiple  correlations  we  will  parti¬ 
tion  the  super-matrix  R  as  described  earlier  1  for  the  canoni¬ 
cal-multiple  correlation  of  set  1  vs.  the  others  1 
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*-R12  R13  ^ 

1  R23  ] 
1r23  I  J 


“6  v1.23  "  Ri2  "Ji1  r12  “  0.013999 

The  square  root  of  the  largest  characteristic  root  of 
Vj  23  i»  the  canonical-multiple  correlation  of  set  1  vs  the 
others i 


Pl,23  “  0*118320 

and  the  associated  characteristic  vector  is,  of  course 

Ci] 

For  the  canonical-multiple  correlation  of  set  2  vs  the 
others,  we  have 


R23  C  tR12 

]  and 

*33  = 

1  R13 

R13  1  ■ 

V2.13  “  R23 

R*-1  R*' 

33  n23 

’0.005419 

0.004759 

0.004821 

0.001437  “ 

0.004759 

0.006236 

0.005164 

0,004078 

8 

0.004821 

0.005164 

0.004709 

0.002553 

.0,001437 

0.004077 

0.002553 

0.004237  - 

The  square  root  of  the  largest  characteristic  root  of 
V2  is  the  canonical-multiple  correlation  of  set  2  vs  the 
others  i 

3  *  0,13068 

and  the  associated  characteristic  vector  is 

[0.!501?23  0.598517  0.517728  0.349290] 
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Finally,  for  the  canonical  -multiple  correlation  of  set 


3  vs  the  others,  we  have 


R13  *  CR13  R'23  ^  and  Rn  a  j2 

LK  *12  A 


r3.12 


R13  Rll1  r13  a  °‘006197 


Then  the  canonical-multiple  correlation  of  set  3  vs  the 
others  is  the  square  root  of  i2 ,  hence 

P3.12  *  °*°90537 

and  the  associated  characteristic  vector  is 

[i] 

So  th:  inverse  of  a  canonical  correlation  matrix  P  would 
be 


1.01419 

0.11756 

0.03132 

0.11756 

I.OI736 

0.08822 

-  0.03132 

0.08822 

1.00826 

*  0.99983 

-0.11369 

-0.02110 

-0.11369 

1.00337 

-0,08426 

— 0. 02110 

-0.08426 

0.99983 

and  I  P|  =  0.982158,  the  minimum  determinant. 

Again,  when  compare  with  (6.2.1)  and  (6,2.2)  the  appro¬ 
ximation  is  quite  close. 

Per  the  reduction  of  the  categorical  weights  for  E 
matrix,  we  have  from  Fletcher-Powell  method  the  normalized 
canonical  weights 


■H*_«HW.iW»W».  V.^1-.-.  J"  l"...  'PUl!»l>V!,JS^ 
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*1  •  1  *  a^ 

fi£  «  [0.501  0.598  0,517  0.3^9] 

The  marginal  totals  for  each  set  are 
Si  “  [3956  304?] 

n£  «  [2417  2091  946  415  234] 

n^  *  [4113  1990] 
with  the  grand  total  n  *  6103. 

The  final  categorical  weights  for  the  E  matrix  are 
Hi  *  [0,99853  -1.0014?] 

w£  ■  [0.61940  0.26653  -0.44928  -1.70580  -3.93789] 

H3  *  [0.69558  -1.43764]  . 

6 • 3  Four  Categorical  Variables,  with  4.  4.  3  and  3  States 
Let  us  consider  a  case  of  four  sets  with  the  first  and 
the  second  sets  having  four  states,  the  third  and  the  fourth 
sets  having  three  states  (4  x  4  x  3  x  3). 

There  will  be  six  two-way  tables  1  the  calculation  process 
is  the  same  as  two  previous  cases  (6,1  and  6.2). 


Tilt  contingency  table  it 
Table  6.3.1 


h 

»2 

2 

12 

JllD2 


5  6 


*4 


150 


2  40 


®l|®2 


5 


20  10  2 


10|  2 


2  8 


D2  ]  50  40  10 


80  8  2 


20  20 


40  200  10 


30  60 


2  10 


2 


8 


10 


5  51012 


5  6 


2 


12  9  6  5 


3  60  8  4  40  2 


6  20  10  40  50  I  5 


3  15  8  6  20  2 


40  50  10 


150|  80 1 10 


10  5 


50  10 


20  5 


The  six  two-way  tables t 
Table  6.3.2 


A  vs  B 


Sub-total 


Sub-total 


2?5 

23 

47 

382 

445 

33 

85 

226 

42 

122 

285 

46 

22 

314 

95 

16 

?84 

492 

512 

670 

fable  6,3,3 


Sub- to 


Table  6,3,4 


68 

330 

252 

50 

323 

32 

65 

359 

393 

130 

195 

261 

784 

492 

512 

670 

Sub- total 


Table  6.3,5 


Sub-total 


A  vs  D 


B  vs  C 


Sub-total 


7C 


Sub-total 


81 

341 

237 

57 

384 

94 

20? 

300 

319 

57 

68 

313 

784 

492 

512 

670 

9 

a 

1 

l 

55 

81 

264 

!*00 

390 

286 

74 

29 

282 

422 

157 

118 

{£231 

789 

495 

447 

Sub-total 


♦ 


Table  6.3*6 


Sub-total 


Table  6.3.7 


72 

86 

246 

312 

286 

433 

180 

86 

3 69 

170 

69 

49 

727 

789 

495 

44? 

C  vs  D 


ISA 

461 

50 

194 

r 

cvi 

-d- 

CVi 

45 

Qzl 

700 

779 

Sub-total 


The  E  matrix  are  as  follow i 


Sub-total 


6 


985 


Sub-total 


979  2 


533.936 

-156.927 

-163.306 

-213.702 

-156.927 

393.519 

-102.483 

-134.109 

-163,306 

-102.483 

405.350 

-139.560 

-213.702 

-134.109 

-139.560 

487.371 

511.976 

-233.361 

-146.404 

-132. 208 

-233.361 

535.736 

-158.891 

-143.483 

-146.405 

-158.891 

395.315 

-90.018 

-132. 208 

-143.483 

-90. 018 

365.710 

j^1 


r  500.650 

-221.847 

-278.803  - 

>33' 

-221.847 

532*115 

-310.268 

.-278.803 

-310.268 

589.072. 

-  507.433 

-286.924 

-220.509- 

*»“ 

-286.924 

590.278 

-303.354 

.-220.509 

-303.354 

523.863. 

-  43.117 

193.341 

-115.864 

-120.574  • 

-122.518 

-124.928 

22.919 

224.527 

*12  “ 

-104.433 

-79.348 

181.891 

1.890 

-  183.834 

10.935 

-88.927 

-105.842  - 

p-155.270 

74.531 

80.739- 

189.886 

-123.926 

-65.959 

b13- 

106.190 

-97.265 

-8.925 

.-140.805 

146.660 

-5.855- 

- -152.038 

159.516 

-7.558* 

-143.694 

35.947 

107.748 

i 

n 

CM 

« 

123.031 

-82.878 

-40.154 

1 

-  172.701 

-112.665 

-60.036  . 

r -14?. 374 

69.826 

77.548 

197.683 

-103.160 

-94.523 

E14  * 

87.858 

1.825 

-89.683 

--138.166 

31.509 

106.657- 

p -139.770 

-5.332 

145.102- 

-143.830 

116.822 

72.009 

E24  = 

101,809 

-18.362 

-83.44? 

-  181.791 

-93.127 

-68.664- 

myu  p  i  i  - 1  ym  .ipii  b;  i  jl^j — I  'Ml 
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•2#.094  -86.513  -170.581  "1 

tyt  -  -176.917  -70.170  247.088 

L -80. 177  156.683  -76.507  J 

The  T  conditional  inverses  are 


“ 0.043279 

0 

• 

0 

0 

• 

0 

0.0- 

!<-*> . 

0.015769 

0.053652  0.0 

0.0 

.0.025427 

0.025427  0.058699  0.0 J 

"0.044195 

0.0  0.0 

0.0*1 

T<-0  . 

0.021997 

0.048259  0.0 

0.0 

-  0.034287 

0.03428?  0.065248  O.Oj 

T(-l)  „ 

0.044692 

0.0  0.0 ' 

3 

. 0.021275 

0.048012  0.0, 

a 

0.044393 

0.0  0.0' 

A4 

.0.027330 

0.048335  0.0 . 

Hence  the  super- 

•matrix  R  consists 

of 

1  0 

0- 

. 

R«  “ 

0  1 

0 

=  R22 

.0  0 

1- 

1  0  ‘ 

r33  ° 

,0  1 

a 

R44 

R12° 


'13 


-  0.082467  0,444844  0.0236331 
-0.26042 6  -0.305975  -0,3o6343 
.-0.360152  -0,322009  0.163962-J 
-0.300315  0.011902 
0.345889  -0.09814 7 
U  0.317918  -O.I83O83J 


tok 
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and 


I  P|  «  0 


~  2.57275 
-1.48402 
-0.45289 
.-0.35071 
158256 


-1.48402 
2.5160 6 
-0.38298 
-0. 3338O 


-0.45289 

-0.38298 

1.80926 

-0.57252 


-0.35071 

-0.33380 

-O.57252 

1.70047 


(6.3.2) 


We  now  calculate  the  canonical-partial  correlational 
For  p12#3if. 


RU  =  1  -  [R13  R14]f  1  R34 

-1 

r13 

lR34  1 

Ri4  ■ 

0.886809  C. 136459  0.115606  1 
0.136459  0.825142  -0.149995 
L  0.11 56O6  -0.149995  0.848485  J 


r12  “  R 


12 


-[r13  r 


ijf  1 

R34 


-0.027496  0.270088 
-0.118013  -0.091662 
L-0. 210162  -0.141697 


34 

-1 

R23 

I  • 

R24  ' 

-0.019955“ 
-0.308620 
0.205016  _ 


‘  0.849399  -0.168143 
-0,168143  0.728007 
L-0.038032  -0.070279 


-0.038132  " 
-0.07C279 
0.977854  _ 
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*  1.061900  0.0  0.0 

fj-1)  -  -0.171596  1.115140  0.0 

-0.181826  0.233510  1. 119140 J 

and  RjJ1  ■ 

U  ■  *(-l)  R*  d*-1  D**  m(-l)* 

U12.34  T1  K12  K22  R12  T1 

0.11476?  -0.069291  -0.103357' 

-0.069291  0.200738  0.063874 
-O.IO3357  0.063874  0,205583. 

The  canonical-partial  correlation  of  set  1  and  set  2 
given  the  others  is  the  square  root  of  the  largest  charac- 

12.34'  henc® 

12.34  *  °-579Wl 
Per  P13i24. 


teristic  root  of  V 
P 


[R12  Rl4]f  1  R24 

-1 

*12 

l«24  1  ■ 

R{4. 

lll 


“  0.789515  0.175271  0.174976- 
0.175271  0.678013  -0,141414 
.  0.174976  -0.141414  0.729794. 

“  1.125430  0.0  0.0 

-0.275758  1.242160  0.0 
--0.353969  0.347428  1.249140 

R13  *  R13  “  [R12  Rl4l  f  1  R2  ‘  1 


,(-1) 


0[X  R24r[R23] 

lR24  1  l  R}J 


-0.049887  -0.029540 " 

■ 

0.061091  -0.025272 

.0.051780  -0.076573. 

p 

R*  - 

*33 

1  -  [Ri3  *»]\  1 

^l'1  rR 

R24 

I  J  [r 

ui 

0.619281  0.1222081 

.0.122208  0.858676 J 

*  0.005679  -0.007039 

-0,006350' 

U13.24  * 

-0.007039  0.013984 

0.020603 

-0.006350  0.020603 

0.033003. 

The  canonical-partial  correlation  of  set  1  and  set  3 
given  the  others  is  the  square  root  of  the  largest  charac¬ 
teristic  root  of  hence 

P13.24  e  °«220117 
For  P23j14. 

f  0.774930  -0.234182  -r. 0389193 


R22  " 

-0.234182  0.585180 

-0.078306 

.-0.038297  -0,078306 

0.835689. 

'-0,044353  -0.059261* 

r23  " 

-0.088416  -0.053181 

.-0,001943  0,015324. 

* 

r 0.620651  0.135421' 

*33  * 

1.0.135421  0.855330. 

and 


f(-l)  , 
*2  * 

'  1.135970 

0.0 

0.0 

0.421434 

1.394260 

0.0 

.  0.114051 

0.193599 

1.105690. 

“  0.011512 

0.009798 

0.003749" 

U23.14“ 

0.009798 

0.032873 

0.005151 

_ 0.003749 

0.005151 

0.001377 

p23.14 

*  y  *'hOM^D23.14^  " 

\J 0.037733 

For  P14>23, 

"  0.787713 

0.174990 

0.174636- 

Ru  - 

0.174990 

0.690170 

-0.174382 

.  0.174636 

-0.174382 

0.718933. 

1 

’-0.039524 

-0,007767“ 

n 

*  3 

os 

0.078144 

-0,004448 

1 

-  0.032788 

0.021033. 

-* 

0.636267 

-0.097197' 

Rw  = 

.-0,097197 

0.858221. 

«<-l>  _ 
T1 

"  1.126710 

0.0 

0.0 

-0.275169 

1.230110 

0.0 

.-0.360182 

O.36IOO8 

1,262890. 

' 

'  0.003404 

-O.OO6865 

-0.006351’ 

U14,23S 

-O.OO6865 

0.019815 

0.013064 

.-0,006351 

-0.013064 

0.011859. 

P14.23 

\/Chraax(Ul4.23)  u  ]/ 

f - 

0.032470  * 

0.19^250 


.180195 
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Pot  P21M3, 


*  0.774793 

-0.23851 5 

-0.041468' 

*22  “ 

-0.238515 

0.583674 

-0.071973 

-0.041468 

-0.071973 

0.838285. 

-0.022346 

-0.079087 ‘ 

R24  “ 

-0.082556 

0.051299 

-0.037265 

-0.030412 . 

* 

‘  0.635430 

-0.097427 

R4 4  “ 

.-0.097427 

0.865801 . 

(-‘>  = 

‘  1.136070 

0.0 

0.0 

0.430962 

1.399930 

0.0 

.  0.115421 

0.183174 

1.102970. 

“  0.011342 

0.002960 

-0.000382- 

24.13s 

0.002960 

0.025073 

0,012127 

-0,000332 

0.012127 

0.006164. 

p24.13  "  \f C*1max^24,13)  =  ^31308  =  0.176941 
For  P34.12' 


* 

0.645318  0.097515' 

33  " 

.  0.097515  0.941411. 

# 

0.166011  0.064476' 

34  = 

.-0,042258  -0.290438. 

« 

0.663253  -O.054594' 

44  = 

--0.054594  0.958841. 
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l(“l) 


f  _0> 


1.244830  *  > 

-0.15697t  1*038810 

074305  -0.054168 
054168  0.113066 


P , 


yjch nax(U34.12)  “^151216  •  0. 388865 


34.12  "  V  Wiaaxvu34.12‘ 

Hence  the  canonical-partial  correlation  matrix  is 

1,00000  0.57944  0.22012  0,18019 

0.57944  1.00000  0.19425  0.17694 

LO. 22012  0.19425  1,00000  0.38886  J 

Now  we  want  to  find  all  of  the  canonical-multiple  corre¬ 
lations  of  one  set  vs  the  others. 

For  P1>234. 

-*  r 

[R= 


*12 


22 


#  #» 
V1.234s  R12  R22  R12 


12 

R13 

R14 

I 

R23 

R24 

23 

I 

R34 

24 

R34 

I 

and 


0.214976  -0.179312  -0.177099' 

-0.179312  0.320683  0.150404 
L -0,177099  0.150404  0. 283560 J 
The  canonical-multiple  correlation  0^234  1®  the  square 
root  of  the  largest  characteristic  root  of  ^234* 

W=/Chmax<vl.234)  V°‘612946  =  0.782908 

and  the  associated  characteristic  vector  is 


[-0.53*759  0.62227 7  0.571665] 

With  the  sane  process  we  obtain,  for  02.134* 

V2.13*  "  R12  R11  R12 

“0.23399*  0.237671  0.040383" 

«  0.237671  0.428806  0« 077936 

.0,040383  0.077936  0.164170. 

«“»  p2.134  "  \/C1W<V2.134)  “  ]/ 0.605516  «  0.778149 
and  the  associated  characteristic  vector  is 
[0.5*3520  0.816636  0.194136] 

For  p3.124‘ 

V3.124  *  R13  **11*  R13 

‘  0.402631  -0.132156 

es 

-0.132158  0.151799. 

P3.124  ■  =  V/o-459410  "  °-677798 

and  the  assicuated  characteristic  vector  is 
[0. 91&793  -0.394738] 


0.384348  0.092996' 

8 

.0.092996  0,144838. 

**4.123  =\,^hmax(V4.123)  “  \/°*416216  “  °-645148 

and  the  associated  characteristic  vector  is 


[0.945997  0.324174] 
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Therefore  the  inverse  of  P  is 


2.58362 

-1.48289 

-0.48121 

-0*37908 

-1.48289 

2.53496 

-0.4206*- 

-0.36871 

-0.48121 

-0.42064 

1.84983 

-0.6??:?1 

-0.37908 

-0.36871 

-0.69221 

1.71296 

1.23264 

0.98365 

0.85492 

0.82999 

0.98365 

1.22961 

0.84355 

0.82324 

0.85492 

0.84355 

1.28837 

0.89140 

0.82999 

0.82324 

0.89140 

1.30488 

Compare  with  (6.3*1)  and  (6.3.2),  here  we  can  see  that 
(P  )  is  not  a  correlation  matrix.  If  it  is  normalized,  it 
would  be  close  to  the  minimum-determinant  correlation  matrix, 
though. 

The  reduction  to  the  E  matrix,  we  have  from  the  Fletcher 
-Powell  method,  the  set  of  canonical  weights! 

«  [-0.531  0.619  0.577] 

&£  «  [  0,561  0.804  0.19?.] 

S}  «  [  0.946  -0.321] 
a4  -  [  0,958  0.285] 

and  the  marginal  totals  for  each  set  are 


n{  0  [  784 

492 

512 

1 - 1 

O 

C^- 

\o 

=  [  727 

789 

485 

447] 

0 

0 

IV 

1 _ 1 

11 

-C'S 

Cl 

779 

1 - 1 

vO 

IV 

o\ 

Bi  »  L  716 

985 

757] 

grand  total  i 

n  = 

2458 

113 


M 


The  categorical  weights  for  the  E  matrix  are 
w{  *  £-0.776065  1.527350  0.832238  -0.84?448] 
w |  [  0.866107  0.683918  -0.946218  -1.568864] 

ij  mL  1.500610  -1.023690  -0.258397] 

wj,  «  [  1.495060  -0.317612  -1. 000810] 


With  4.  4.  4  and  4  States 


Let  us  consider  a  case  of  four  sets  with  each  set  having 


four  states. 

The  contingency  table  is 
Table  6.4,1 


We  have  six  two-way  tables » 
Table  6.4.2 

A  vs  E 


m 

*2 

BIBS 

310 

290 

270 

210 

345 

245 

240 

190 

255 

2?0 

190 

215 

190 

255 

195 

220 

1100 

1060 

895 

835 

Table  6.4.3 


Sub-total 


A  vs  C 


195 

370 

320 

190 

365 

310 

140 

170 

310 

225 

170 

210 

230 

155 

265 

265 

1100 

1060 

895 

835 

Table  6.4.4 


A  vs  D 


Sub-total 


5 


985 


915 


915 


389 


■9 

A2 

A3 

MM 

295 

270 

320 

195 

190 

305 

225 

21c 

330 

205 

165 

V, 

CO 

CM 

285 

280 

185 

145 

1100 

1060 

895 

035 

Sub- total 


115 


Table  6.4.5 

B  vs  C 


Bi 

*2 

\ 

Sub-total 

C1 

295 

260 

2?0 

250 

1075 

C2 

220 

245 

260 

260 

98  5 

°1 

310 

210 

200 

195 

915 

C4 

255 

305 

200 

155 

915 

Sub-tOtal 

1080 

1020 

i 

930 

860 

3890 

Table  6.4.6 

B  vs 

D 

B> 

; 

2  ^ 

Sub-total 

Di 

300 

280 

235 

265 

1080 

D2 

295 

245 

215 

175 

930 

300 

235 

235 

215 

985 

185 

260 

245 

205 

895 

Sub-total 

1080 

1020 

930 

860 

3890 

-able  6.4,7 

C  vs  D 


°2 

°? 

°4 

Sub-total 

Di 

295 

250 

260  k 

2?5 

1080 

D2 

215 

255 

245 

215 

930 

240 

275 

195 

275 

985 

d4 

325 

205 

215 

150 

895 

Sub-total 

1075 

985 

915  1 

915 

3890 
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**•  Ejj  natriees  are  as  follow i 


511 


E, 


22 


E 


33 


%  ■ 


Et2  “ 


E 


13 


*  788.946 

-299.742 

-253.084 

-236.118  - 

-299.742 

771.156 

-243.881 

-227.532 

-253.084 

-243.881 

689.081 

-192.114 

-236.118 

-227.532 

•  -192.114 

655.764  - 

780.154 

-283.187 

-258.200 

-238.766  - 

-283.187 

752.545 

-243.856 

-225.501 

-258.200 

-243.856 

707.660 

-205.604 

f 2 38. 766 

-225.501 

-205.604 

669.871  - 

777.924 

-272.204 

-252.859 

-252.859  ~ 

-272.204 

735.584 

-231.690 

-231.690 

-252.859 

-231.690 

699.775 

-215.224 

-252.859 

-231.690 

-215.224 

699.775  _ 

780.154 

-258.200 

-273.470 

-248.483  “ 

■258.200 

707.660 

-235.488 

-213.973 

•273.470 

co 

CO 

•a- 

a 

V. 

l*\ 

CM 

1 

735.584 

-226.625 

•248.483 

-213.973 

-226.625 

689.081  _ 

4.602 

56.568 

-7.982 

-53.188  ~ 

-4,293 

-32.943 

16.581 

20.656 

21.516 

5.321 

-23.972 

-2.866 

-21.825 

-28.946 

15.373 

35.398  - 

108.984 

86.465 

51.259 

-28.740  - 

77.069 

41.594 

-24.332 

-94.332 

72.667 

—86.626 

-40.521 

54.479 

-40.752 

-41.433 

13.593 

68.593  - 

'.-3.458  -53.470  55.964 

-21,877  -13.277  -29.923 

12.995  24.512  -18.753 

►  12.339  42.512  -7.288 

-10.398  -72.982  51.465 

-24.293  51.581  -63.406 

71.517  11.028  -61.626 


.-36.825  10.373 

•  0.154  36.799 


-3.188  1.144 

-23.201  -7.339 


0.373  73.567 
6.799  26.529 
1.144  -23.278 


-0.488 

-2.764 


L.  26.234  -30.604  -2.764 

-  -3.458  -42.005  -32.204 

-23.470  19.512  25.585 

E-.,  *B 

34  5.964  26.247  -36.690 

-20.964  -3.753  43.309 

The  T  conditional  inverses  are 

ro. 035602  0.0  0.0 

fli(-l)  ■■  n  mhaio  n  nriannc  n  r\ 


0.964 

65.077 

-18.753 

-47.288 

31.915 

36.118 

-20.919 

-47.114 

-63.483 

25.321 

31.028 

7.134 

77.667 

-21.626 

4.479 

-60.521 


,(-l)  _ 


,(-l)  =, 


0.035602 

0,0 

0.0 

0.0 

0,014819 

0.039005 

0,0 

0.0 

.0.024891 

0.024891 

0.048113 

0.0 

■0.035802 

0,0 

0,0 

0.0 

0.014240 

0.039231 

0.0 

0,0 

■0.024579 

0.024579 

0.047308 

0.0 

0.035853 

0.0 

0.0 

0,0 

0.013858 

0.039518 

0.0 

0.0 

.0.023376  0.023376  0.0*16752  0.0 


p 


035:802  0.0 


0.013268  0.040089  0.0  0.0 

0.024195  0.024195  0.046179  0.0 


Hence  the  super-matrix  R  consists  of 
“10  0- 

R11  *  010  ®  R22  “  R33  *  r44 

-0  0  1- 

-  0.005865  0.081342  0.040084 
R12  »  -0.003554  -0.018937  -0.011582 

-  0.037339  0.047965  0.001943 
“‘-0.139114  0.067997  0.066579 

R13  b  0.049874  0.133985  0.091539 

-  0.096872  -0.001381  -O.OI9569 
"-0.004438  -0,077363  0.046031 

R23  «  -0.032536  -0,063223  -O.O688I3 
.-0.000284  -0.019118  -0.022983 
■-0. 013254  -0.109077  0.012789 
Rlif  «  -0.039442  0.022682  -0.083134 

.  0.092277  0.034114  -0.088339- 
“  0.000198  0.052892  0.075873' 
R24  b  -°*°°4399  0.021178  -0.013933 
.-0.041965  0.007917  -0.011572^ 
r-0. 044383  -0.062021  -0.0927 59' 


«  -0,034918  -0.005315  0.007130 
.-0.012554  0.023462  -0.077876 
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Through  some  initialization  of  the  canonical  weights 
and  the  Fletcher-Powell  method,  a  set  of  normalized  canonical 


weights  is 

obtained 1 

*  [  0.920 

0.210 

-0.329] 

& 

a  [  0.219 

0.854 

0.470] 

&3 

a  [-0.710 

0.492 

0.502] 

4 

a  [  0.215 

0.975 

-0.044] 

and  P  with 

elements  a! 

Ri^j 

equals 

-  1.00000 

0.06358 

0.19486 

-0.11623  -r 

0.06358 

1.00000 

-0.04882 

0.02758 

0.19486 

-0.04882 

1.00000 

0.04619 

_-0. 11623 

0.02758 

0.04619 

1.00000  - 

By  taking  all  elements  positive,  we  obtain  the  in 

as 

-  1.05500 

-0.05434 

-0.19776 

-O.III99- 

p-1  _ 

-0.05434 

1.00583 

-0.03760 

-0.01969 

r  a 

-0.19776 

-0.03760 

1.04146 

-0.02409 

.-0.11199 

-0.01969 

-0.02409 

1.01467_ 

(6.4.1) 


(6.4.2) 


and  |  P|  *  0.939870 

as  in  the  previous  cases,  ve  calculate  the  canonical-partial 
correlations. 

For  p12.34‘ 

r  0.957258  -0.005416  0,021044 
-0.005416  0.964167  -0.006669 
L  0.021044  -0.006669  0,973430  J 


Rn  ■ 
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12 


[ 


0.013196  0.088146  0.043467  i 
0.007359  -0.004897  -0.013649 


L 0.043187  0.047772 

0.004041  J 

r  0.982784  -0.001168 

0.000141  - 

4- 

-0.001168  0.989249 

-0.003591 

*-0.000141  -0.003591 

0.997012  - 

ii 

I 

wrl 

p 1.022080  0.0 

0.0 

0.005762  1.018420 

0.0 

[rO. 022248  0.006889 

1.013820 _ 

-0.010402  0.000331 

0.004984“ 

“12.34* 

0.000331  0.0002?9 

0.000173 

-0.004984  0.000173 

0.004125  - 

**12,34  “ 

\/Chinspc{U12.34)  s\l 

!  0.013164 

P0r  Pl3.24' 

-  0.978976  0.004380 

0.001544  " 

_* 

*11  * 

0.004380  0.990508 

-0.003621 

-0.001544  -0.003621 

0.978542- 

-0.142043  0.073826 

0.076331“ 

4- 

0,042719  0,132311 

0.082712 

• 

.  0.092468  0,008985 

-0,024865  - 

■ 

‘0.986434  -0,001441 

-0,008445  ” 

4  = 

-0,001441  0.988213 

-0.000748 

r0. 008445  -0,000748 

0.985059  _ 

0.114734 


i . 


IJIPBI  a  i  mm 
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tJ“1)  « 

r 1.010680 

0.0 

0.0 

I -0,004496 

1.004790 

0.0 

[-0,001611 

0.003702 

1.010910 

‘0,032355 

0.010070 

-0.014801 

U13#24** 

0.010070 

0.026772 

0.003393 

r0. 014801 

0.003393 

0.009617 

P13.24  " 

Y  Chmax(U13.24)  m\ 

/o.  044337 

Por  P23.14' 

‘0.989519 

-0.002900 

-0. 000169 

R22  * 

-0,002900 

0.989652 

-O.OO3969 

- 0.000169 

-0.003969 

0.996284 

*  0.003416 

-0,078666 

0.050938 

R*3  = 

-0.023632 

-0.066147 

-O.073388 

-  0.004099 

-0.024379 

-0.028086 

‘0.955708 

0.003819 

0.003177 

*33“ 

0.003819 

0.976286 

-0.015679 

-  0,003177 

-0.015679 

0.980485  ■ 

B 

"  1.005280 

0,0 

0.0 

0.002946 

1.005210 

0.0 

-0.000183 

0.004019 

1 .001870  . 

‘  0,008963 

0.001513 

0.000549 

U23.14b 

O.OOI513 

0.010817 

0.003702 

i 

-  0.000549 

0.003782 

0.001491 . 

P23.14  " 

\/CVx(U23.14)  0.012828 

0.208264 


=  0.113259 


iwWJWi  Ji  .J  mp 


Por  **14.23' 


H 


R44  e 

j(-l)  B 


U14.23“ 


*  0,962255  -0.008?70  0.010206- 
-0,008770  0.970902  -0.002864 

-  0,010206  -0.002864  0.986228- 
‘-0,008134  -0.121429  0.006441- 
-0.032708  0.024110  -0.072400 

-  0.092943  0.037540  -0.082849- 
"  0.996695  0.000454  -0. 001722“ 

0.000454  0.992442  -0.007429 
.-0.001722  -0.007429  0. 978240 _ 
“  1.019420  0.0  0.0 

0.009250  1.014910  0.0 
.-0,010654  0.002874  1.007010_ 

-  0.015541  -0.003059  -0.006137-j 
-0.003059  0.007154  0.004036 
.-0,006137  0.004036  0.017416 


**14.23  ^01WU14.23)  °  \/ 0*024187  =  0.155521 
For  p2413, 

0,990316  -0.004398  -0.000835 - 
-0.004398  0.980284  -0.006593 
-0,000835  -0,006593  0.996928 _ 

-0.005357  0.050317  0.082929“ 

-0.011255  0.028891  -0.016434 
-0.041961  0.013146  -0,012144 
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1 


-0.988692 

-0,004633 

0.003997* 

*44  = 

-0.004633 

0.978641 

0,001890 

-0.003997 

0.001890 

0.973226  - 

,(-l>  .. 
a2 

-1.004870 

0.0 

0,0 

0,004486 

1.010010 

0.0 

-  0.000874 

0.006740 

1.001560  . 

-0.009762 

0,000016 

-0,000121  -1 

U24.13" 

0.000016 

0,001354 

0.001108 

_-0, 000121 

0.001108 

0,002121 _ 

P24.13  = 

VCtW(U24.13>  % 

1 0.0097635 

For  “jk.n' 


-  0.968078 

0.000799 

0.005244- 

* 

R33  = 

0.000799 

0.966448 

-0.018627 

L  0.005244 

-0.018627 

0.978744- 

‘-0. 013308 

-0.080505 

-0.077975' 

# 

R34  * 

-0,030405 

0.005303 

0.022301 

.-0.007823 

0.029282 

-0.077701 _ 

'  0.987970 

-0.002779 

0.004747- 

# 

R44  = 

-0.002779 

0,982688 

0.002651 

-  0.004747 

0.002651 

0.978633- 

m  (  — 1 )  _ 
13 

-  I.OI6350 

0.0 

0.0 

-0.000041 

1.017210 

0.0 

.-0.005492 

0.019490 

1.001100. 

-  0,0x3389  -0.001878  0.003876 
V&A2~  -°»0018?8  0.001533  -0.00138? 

-  0.003876  -O.OOI387  0.007170 
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>3kA2  =VCh«^(U^.12)  Y>-01#22  -  0.124989 
Hence  the  canonical-partial  correlation  matrix  is 


•*  1.00000 

0.11473 

0  20826 

0.15552 

0.11473 

1.00000 

0.11326 

0,09881 

0.20826 

0.11326 

1.00000 

0.12499 

-  0.15552 

0.09881 

0.12499 

1.00000 

We  will  find  all  of  the  canonical-multiple  correlation 
of  each  set  vj  the  others* 

Fcr  » 


V  1,23k  =  I'l2  H2.?1  *12 


p  0.052699  0.00567"  •  u.  016017“ 
a  0.005678  0.03609s  0.  nC\  \6 

.-0,01603 7  0.0068,16  j.  -;\  ,'79. 

“^/C1W(V1.234»  M  -  o.r.W,; 

and  th.:  associated  characteristic  vector  is 
L  0.889W7  0.078(  :'.'  .n.ii't9626] 


F'”'  p .  1 3i> 1 

-,f  ..  ri  "  r/  “  1  p*'  * 

'2.134  '  ‘‘12  K11  J‘12 

T  0.019350  0.0045  .64  000706 

a  0.004371  0. 0210V  0. 007679 

I-  0.000706  0.0C?<‘.  0/05171 
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P2.134  ss^Chmax(V2.134)  "^/0*0266" 
Por  p3.124‘ 

V  -  R#  B*”l  R#< 

3.124  ~  k13  r11  r13 

-  0.044884  -0.002606  -0,001:6?  • 

*  -0.002606  0.035029  0.01?244 

-0.00136?  0.017244  0.028365  . 

P3.*24  ~  s^/"°*°50691 
and  the  associated  characteristic  vector  is 


[  -0.444899  0.695402  0.564339  ] 

For  p4.123‘ 

V4.123  "  R14  RU1  R14 

-  0.013239  0.003462  -0.003724  1 

»  0.003462  0.024959  0.001623 

—0.003724  0.001623  0.034200  J 


4.123 


Ch _ (V 


max  4,123 


)  -^0.03 


034951 


and  the  associated  characteristic  vector  is 


L  0.151437  0.170171  0.982639  ] 
Therefore  the  inverse  of  P  is 


“  1,06529 

0.12003 

0.22062 

0 

0.12003 

1.02743 

0.11783 

0 

0.22062 

0.11783 

1.05339 

0 

-  0.16340 

0.10195 

0.13059 

1 

=  0.163401 


*  0.225145 


»  0.186952 


.16340  - 
.10195 
13059 
03621  - 


and 
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•  1.00604 

-O.O8365 

-0.18560 

-0.12702 

.  .  -0.08365 

(P -1}-1  * 

1.00022 

-0.08513 

-0.07449 

-0.18560 

-0.08513 

1.00879 

-0.08949 

-  -0.12702 

-0.07449 

-0.08949 

1.00368 

and  |P|  =  0,93001 

compare  with  (6.4.1)  and  (6.4.2)  again  the  approximation  is 
quite  close. 

For  the  reduction  to  the  categorical  weights  for  E 
:iatrix,  from  Fletcher-Powell  method  v/e  obtain  a  set  of  nor¬ 
malized  canonical  weights t 

a •  a  [  0.920  0.210  -0.329] 

*  [  0.219  0.854  0.470] 

^  =  [-0.710  0.492  0.502] 

fl4  *  [  0.215  0.975  -0.044] 

and  the  marginal  totals  for  each  set  arei 


n{  =  [1100 

1060 

895 

835] 

n£  a  [1080 

1020 

930 

1 — 1 
0 

VO 

CO 

nj  *  [1075 

985 

915 

915] 

n ^  »  [1080 

930 

985 

895] 

the  grand  total  n  - 

3890. 

The  sets  of  categorical  weights  for  the  entire  E  matrix 
are  therefore 

wj  *  [  1.465660  -0.259803  -1.250040  -0,261131] 

w£  a  [  0,353890  1.196350  -0.228598  -1.616140] 

»  [-1.149300  1.228670  0.746598  -0.718985] 

=  [  0.347959  1,498080  -1.001150  -0.874771] 


6,5  A  Validation  Study 

Five  hundred  observations  were  generated,  random  normal 
numbers  from  a  tri-variate  normal  distribution.  Uncorrelated 
random  normal  numbers  were  multiplied  by  the  triangular 
matrix 

j-1,0  0.0  0.0- 

0.8  0.6  0.0 
L0.0  0.6  0,8 J 

thus,  the  sample  is  from  a  normal  distribution  with  mean  vec¬ 
tor  0  and  variance-covariance  matrix 
1.00  0,80  0,00, 

0.80  1.00  0.36  . 

0.00  0.36  1.00J 

Each  of  the  three  variables  was  divided  into  four  slices 

Yji  <  -0.7  f  -0,7  to  +0,3  ,  +0.3  to  +1  ,  >  +1  . 

The  first  category  v/ao  given  the  value  3>  the  second  was 

given  the  value  4,  the  third  was  given  the  value  1  and  the 

last  v/as  given  the  value  2,  Thus,  the  expected  value  under 

-z. 

the  slice  "3”  (  <  -0.7)  v/as  — v/here  z.  is  the  ordinate 

A1  1 

under  a  stand  normal  at  x  «  -0,7  and  f^  ir  the  cumulative 
distribution  function  of  the  standard  non  al  at  x  »  -0.7. 

For  the  next  slice  "4",  the  expected  value  is  — 5 - 

1 2  “  n 

where  z2  and  are  ordinate  and  area  for  x  *=  +0.3  (the 
second  partition).  Similar  partitions  were  made  for  the  other 
tvo  random  v:  '''  .1.'  r  i:,  Vi-.e  results  are 
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Table  6.5.1 

Categorise  and  Expected  Values 


Yj( levels) 

3 

4 

1 

2 

Slice 

e- 

• 

o 

i 

V 

-0.7  to  0.3 

0,3  to  1 

>  1 

Expected 

1 -1.290 

-0.184 

0.624 

1.525 

Y2 (levels) 

1 

4 

3 

2 

Slice 

<  -1.1 

-1.1  to  0 

o  to  0.5 

>  0.5 

Expected 

-1.606 

-0.497 

0,244 

1.141 

Y^( levels) 

2 

3 

1 

4 

Slice 

<-1.2 

-1.2  to  0.3 

0.3  to  1.2 

>  1.2 

Expected 

-1,687 

-0.372 

0.701 

1.687 

Contingency  tables  were  obtained  and  entered  into  the 
program  for  categorical  scalingi  Ajt  A2,  Ay  corresponds 
to  levels  1,  2,  3,  4  of  Y^i  B  corresponds  to  Y2  and  C  corres¬ 
ponds  tO  Y  y 

Table  6. 5.2 


\  ai 

A2 

_ h _ 

ei 

H 

EH 

h 

1 

a 

EH 

m 

EH 

Ji2 

VSDHj 

B2 

EH 

B4 

ci 

0 

28 

3 

3 

0 

18 

B 

1 

Q 

22 

2 

6 

14 

11 

°2 

1 

2 

5 

10 

B 

3 

l 

2 

13 

0 

.  J 

0 

2 

5 

0 

B 

18 

1 

18 

19 

17 

E 

30 

D 

0 

29 

9 

2 

30 

57 

m 

D 

14 

1 

0 

0 

10 

ED 

0 

2 

7 

0 

— . i 

10 

8 

5 

We  have  three  two-way  tables i 
Table  6.5.3 

A  vs  B 


n 

Kill 

E 

E 

■  ■ 

2 

n 

60 

16 

62 

61 

18 

28 

10 

2 

53 

30 

5 

60 

91 

122 

77 

123 

178 

Table  6.5.4 


Sub-total 


A  vs  C 


Table  6.5.5 


B  vs  C 


Bo 


Sub-total 


Sub-total 


58  1 06 


n 
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The  E  matrices  are  as  follows i 


-92.232 

-18.788 

-30.012 

-43.432  - 

-18.788 

65.142 

-18.942 

-27.412 

Eu 

s 

-30.012 

-18.942 

92.742 

-43.788 

„-43.432 

-27.412 

-43.788 

114.632  _ 

r  66.518 

-22.436 

-14.694 

-29.388  - 

-22.436 

101.672 

-26.412 

-52.824 

®22 

SB 

-14.694 

-26.412 

75.702 

-34.596 

.-29.388 

-52.824 

-34.596 

116.808  - 

■"88.550 

-14.720 

-60.030 

-13. 800  " 

-14.720 

55.808 

-33,408 

-7.680 

E33 

-60.030 

-33.408 

124.758 

-31.320 

.-13. 800 

-7.680 

-31.320 

52.800  - 

“-17.276 

27.352 

5.303 

-15.384- 

-11.166 

39.132 

-4.322 

-23,644 

E12 

tt 

40.566 

-33.932 

-20.878 

14.244 

.-12.124 

-32.552 

19.892 

24.784  - 

-  5.940 

2.384 

-8,684 

O.36O  " 

0.290 

-2.856 

1.806 

0.760 

e13 

1.710 

-0.744 

1.794 

-2.760 

_  -7.940 

1.216 

5.084 

1.640  _ 

“  -9.170 

9.888 

•  5.^62 

-6,480  - 

20.340 

-13.176 

-24.124 

16.960 

E23 

““ 

-4.390 

-4.904 

9.454 

-0.160 

-6,780 

8.192 

8.908 

-10.320  _ 
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The  T  conditional  inverses  aret 

r  0.104126 

0.0  0.0 

0.0  ■ 

HI 

1 

M 

0.026015 

0.127707  0.0 

0.0 

-0.047914 

0.047914  0.117252 

0.0  . 

r  0.122611 

0.0  0.0 

0.0 

T(-l)  - 
a2 

0.034768 

0.103084  0.0 

0.0 

-0.042333 

0.042333  0.127000 

0.0  - 

1-  0.106268 

0.0  0.0 

0.0  - 

u 

*“N 

ri 

1 

EH 

0.022757 

0.136895  0.0 

0.0 

.  0,116410 

0.116410  0.143171 

0.0  - 

Hence  the  super-matrix  R  consists  of 

0 

0 

Rn  c 

0  10 

"  R22  =  R33 

.0  0  1- 

“-0.220563 

0.231044  0.114608  “ 

R12  = 

-0.229946 

0.523304  0.10972? 

-  0.416104 

0.036240  -0,19^803  - 

"  0,065728 

0.0480 5?  -0.028562“ 

R13  = 

0.020357 

-0.037031  -0.12262 

-  0.053028 

-0.003682  0.028235- 

“-0.119482 

0.140382  0.111396  “ 

r23  “ 

0.188935 

-0,098413  -0.238'; £2 

.-O.OO89  97 

-0.106240  -0,037952. 

In  order  to  initialize  the  iterative  minimum-determinant 
solution,  v/e  i;lnd  the  canonical-multiple  correlations  of  each 
set  vs  the  others  combined. 
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Por  p1.23‘ 

V1.23 

b  R*  R*-l  R*‘ 

R12  R22  R12 

"  0.132787  0.201982  -0.111764  “ 

B 

0.201982  0.379307  -0.113215 

.-0.117641  -0.118215  0.229624  . 

*1.23  '^Chmax(V1.23)  =  yjo.56»SD  - 
and  the  associated  characteristic  vector  is 
[  0.471882  0.769173  -0.430927] 

For  P2.13* 

V  -  R*  R*-l  R*‘ 

v2.13  "  12  K11  k12 

-  0.318682  -0.209537  -0.148678  - 

*  -0.209537  0.414171  0.091512 

.-0.148678  0.091512  0.075762  _ 

P2.13  Ch max(V2.13^  B^/  O.6306IO  = 

and  the  associated  characteristic  vector  is 
[-0.624674  0.726168  0,287158] 

Por  P3.12' 

*  * » 

V3.12  “  R13  R11  R13 

“  0.085558  -0.065363  -0.092459  “ 

«*  -O.O65363  0,081871  0.078239 

_-0. 092459  0.078239  0.115964  . 

P3.12  =  ^/chmax<V3.12)  =\/0-25^  3  = 


0.754619 


0.794109 


0.504601 
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and  the  associated  characteristic  vector  is 
[  0.556117  -0.508234  -0.657594] 

After  14  iterations  by  the  Fletcher-Powell  method  we 
obtained  the  Minimum-Determinant  Solution! 


-I 

=  [  0.470 

0. 

776  - 

.0,419] 

—2 

=  [-0.624 

0. 

726 

0.286] 

•5 

«  [  0.545 

—  0  a 

,526  - 

•0.651] 

The  marginal  tot 

;als 

for  each  set 

»  [  122 

77 

123 

178] 

“2 

*  [  79 

142 

93 

186] 

~3 

-  L  H5 

64 

261 

60] 

and  the  grand  otnl  is  n  =  5 00. 

Re-translating  these  into  original  weights  we  obtain 
y:j  -  [  0.828  1.498  -1.370  -0.269] 

(Expected  value)  =  [  0,624  1,52 5  -1.290  -0,184] 

}?£  -  [-1.443  1.380  0.249  -0.566] 

(Expected  value)  =  [-1.606  1.141  0.244  -0.497] 

=  [  0.998  -1,643  -0.421  1.66?] 

(Expect  d  vaiUe)  "  [  0.701  -1.687  -0,3','.  1.687] 

It  is  thus  seen  thf  the  theoretical  valors  were  quite 
adequately  reproduced  from  the  categorized  data  only,  even 
though  the  lat'-or  wore  «  nrdei  ou. 

The  corre  at  ion  •  x  obtained  >::n  the;  sealed  scopes, 
and  the  contingency  in  10  or;  v  6,  r'd  6.5,  t  is 


The  Pj^  and  P2 3  values  are  quite  adequate  approxima¬ 
tions  to  the  true  covariances* 

P  |  r  >  0,038 1  p=  0  *=  0.603 

P  |r  >0*380 1  pa  0.36  *  0.695 
(from  exact  distribution  of  r  ) 

However,  the  0.712  value  is  too  low 
P  |  r<  0.712  |  p=  0.8  |  <  10~4 
If  the  vectors  wj  and  w£  are  replaced  by  the  vectors  of 
expected  values,  the  resulting  correlation  between  the  A-set 
and  the  B-set  is  0.7036,  even  less  than  the  0,712  obtained 
from  the  minimum-determinant  solution.  Hence  the  significant 
reduction  of  the  high  correlation  is  due  to  replacement  of 
the  continuous  variables  by  four  points,  and  not  due  to  the 
method  of  analysis. 

6,6  Comparison  of  Initial  Trials 


O.97179 


0.42188 


.0547 

.998 

.929 

.369 

.856 

.516 
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2.  For  the  case  (2x5x2) 


4.2(2) 

4.214)1 

L  4.2(5).  . 

4.3  ' 

1.00000 

1.00000 

1.00000 

1.000 

0.36902 

0.44386 

0.50172 

0.501 

0.62149 

0.61376 

0.59852 

0.598 

0.47613 

0.4961 6 

0.51773 

0.517 

0.47981 

0.^2439 

0.34919 

0.349 

1.00000 

1.00000 

1.00000 

1.000 

3.  For  the  case  (4  x  4  x  3  x  3) 


4.2(2) 

4.2(4) 

4.2(5) 

4.3  I 

-0.51993 

-O.53287 

-0.53476 

* 

-0.531  1 

0.62955 

0.62204 

0.6222C 

0.619  j 

0,57807 

0.57367 

0.57166 

0.577  I 

O.56258 

0.55387 

0.5435? 

f 

0.561  | 

0.80269 

0.80935 

0,81664 

0.804  ! 

0.19798 

0.19539 

0.19414 

0.192  1 

0.93833 

0.93138 

0.91879 

0.946 

-0.34573 

-0.36404 

-0.39474 

-0.321  i 

j 

0.96103 

0.94873 

0.94599 

0.958  ) 

0.2 7627 

0.31609 

0.32417 

0.284  i 

* 

1)  4,2(2)  -  Average  canonical  scales. 

4.2(4)  -  Multiple  regression  weights. 

4.2(5)  -  Cpnonical-rcultiple  correlations  as  weights. 
4,3  -  Kinimurn-deterininant  solution. 


5#  For  the  case  (4x4x4) 
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F°r  comparison  between  various  forms  of  initial  solu¬ 
tions  with  the  best  (canonical-mulitple  correlations)  initial 
solutions,  the  (4  x  4  x  4  x  4)  study  has  been  chosen* 

With  permissible  error*  EPS  =  io“^ 

(1)  Initial  weights  are  all  0. 5 

52  iterations  to  obtain  convergence  and  the 


normalized  canonical  weights  are 

[  0.920 

0.212 

-0.328] 

[  0.221 

0.855 

0.469] 

[-O.709 

0.494 

0.502] 

[  0.216 

0.975 

-0.040] 

(2)  Initial  weights  are 

all  1.0 

10£  iterations  to  obtain  convergence  and  the 
normalized  canonical  weights  arc 


[  0.91? 

0.222 

-0.329] 

[  0.245 

0,840 

0.468] 

[-0.709 

0.498 

0.499] 

[  0.196 

0.980 

-0,024] 

(3)  Initial  weights  are 

all  2.0 

1 122,  iterations  to  obtain  convergence  and  tho 
normalised  canonical  weights  are 


[  0.896 

0.417 

-O.150] 

[  0.796 

0,470 

0.382] 

[-0.598 

0.676 

0.429] 

[  0.060 

0,92? 

0.363] 
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Note i  If  EPS  »  lo"4  and  the  initial  weights  are  either 
all  1.0  or  the  multiple-regression  weights,  after  150  itera¬ 
tions,  the  limit  set  by  the  computer  program,  no  convergence 
can  be  obtained. 

It  is  noted  that,  in  every  instance,  the  canonical- 
multiple  correlation  weights  (each  set  against  the  totality 
of  the  others)  gives  a  very  good  approximation  to  the  final 
minimum-determinant  solution. 

When  the  relations  between  the  categorical  variables 
are  strong,  the  multiple  regression  approch,  based  upon  pair¬ 
wise  canonical  correlations  is  also  quite  useful  (section  6.6). 
However,  since  it  is  easier  to  obtain  canonical-multiple  cor¬ 
relations  there  is  really  no  reason  for  using  this  kind  of 
initial  solution. 

The  unweighted  average  of  canonical  correlations  are 
useless  as  initial  solution. 

In  conclusion  it  can  be  said  that  the  canonical-multiple 
correlation  weights  appear  to  be  so  good  that  iterations  to 
the  minimum-determinant  solution  would  be  required  only  if 
unusually  high  accuracy  is  desired i  this  would  be  the  excep¬ 
tion  in  categorical  data  analysis. 


CHAPTER  VII 
SUMMARY  AND  CONCLUSION 

A  generalization  of  the  Pisher-Laneaster  technique 
for  scaling  pairs  of  categorical  variables  has  been  studied 
in  considerable  detail.  For  the  reason  stated  in  CHAPTER 
III,  R.G.D,  Steel’s  criterion  of  a  minimum-determinant 
solution  was  adopted  as  an  optimal  criterion.  The  solutions 
satisfying  this  criterion  have  been  compared  with  various 
approx5  nations ,  including « 

(1)  Averages  and  weighted  averages  of  canonical  vectors 
obtained  by  pairing  each  set  with  each  other  seti 

(2)  canonical  vectors  obtained  by  pairing  each  set  with 
the  totality  of  the  other  sets; 

(3)  canonical-partial  and  canonical-multiple  correlations 
being  used  to  construct  the  inverse  of  a  correlation 
matrix  of  tne  derived  sealer;. 

Of  the  three  methods,  the  second  5s  the  least  time-consuming, 
and  also  consistently  the  best.  It  is  so  good,  in  fact,  that 
for  all  practical  purposes,  iteration  to  a  minimum-determinant 
solution  is  unnecessary. 

It  is  thus  proposed  that  categorical  scaling  of  k 
response  variables  be  conducted  an  fu/iowsi 

(? )  From  the  k-dimensional  contingency  table  construct 
a  super-matrix  it.,  as  described  in  section  4.1. 


(Computer  program  C-E-R  in  Appendix  A2). 

(2)  Obtain  conditional  inverses  of  pseudo-triangular 
matrices  (T^T|  »  E^)  as  explained  in  section 
4.1. 

(3)  Obtain  a  super-correlation  matrix  whose  submatrices 

are  Rjj  -  Ti-1^Eij  21114  Rii  *  (Also 

performed  in  the  computer  program  C-E-R). 

(4)  By  pairing  each  set  with  the  totality  of  the  ether 
sets,  obtain  w canonical-multiple"  correlation  and 
the  characteristic  vector  associated  with  each. 

These  are,  for  all  practical  purposes,  the  canonical 
weights  from  which  the  categorical  scales  can  be 
obtained,  as  described  in  section  4. 2.1. 5  (For 
detailed  description  see  illustration  and  the 
computer  program  CPCM  in  Appendix  D) . 

(4b)  If  high  precision  is  desired,  use  an  iterative 
method  such  as  the  Fletcher-Powell  method  to  obtain 
canonical  weights  that  satisfy  the  minimum-determinant 
solution  (see  description  in  section  4.3  and  the 
computer  program  FPM  in  Appendix  C). 

(5)  By  inverting  the  process  in  (3),  and  using  the 
canonical  weights  (4)  and  (4b),  obtain  scales  for 
each  categorical  variable.  Standardization  in  such 

a  way  that,  in  the  original  set,  the  scaled  responses 
would  have  mean  zero  and  variance  one  is  desirable 
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(see  section  4.4  and  the  computer  program  RTE  in 
Appendix  E). 

It  ie  not  claimed  that  the  foregoing  studies  set  to  rest, 
once  for  all,  the  problem  of  multi-dimensional  categorised 
scaling.  Other  criteria  generalizing  canonical  correlations 
will  probably  produce  somewhat  different  results.  However, 
the  close  proximity  of  an  ad-hoc  result  (canonical  weights 
of  each  set  vs.  the  totality  of  others)  and  a  maximum- 
likelihood  result  (minimum-determinant  solutions)  seems  to 
indicate  that,  whatever  future  improvement  will  be  found, 
it  will  produce  only  slight  changes  of  the  final  scales. 

On  the  other  hand,  simple  averaging  techniques,  which 
have  been  repeatedly  used  in  the  literature,  often  produce 
quite  different  results.  If  some  author  can  find  some  method 
for  determining  weights  by  easier  means  than  characteristic 
roots  and  vectors  of  relatively  small  matrices  (4  by  4  for 
5  states),  and  if  these  weights  approximate  ours  in  many 
different  situations,  his  method  should  surely  replace  the 
five  steps  recommemded  in  this  summary. 
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The  control  cards  for  the  computer  program  as  follows 
l8t  cards  In  FORMAT (  612  ) 

a4* 

Col*  1-  2  ND1-  No.  of  levels  of  the  1  response  variable* 

Col.  3-  4  ND2-  No.  of  levels  of  the  2  response  variable. 

Col.  5-  6  ND3-  No.  of  levels  of  the  3rd  response  variable. 

Col.  7-  8  ND4-  No.  of  levels  of  the  4th  response  variable. 

J.1* 

Col.  9-10  ND5-  No.  of  levels  of  the  5  response  variable. 
Col. 11-12  NVAR-  No.  of  sets  (response  variables). 

♦•Notes  The  omitted  response  variable  is  set  to  1. 

2nd  cards  in  FORMAT (  412.  514  ) 

Col.  1-  2  IDX1-  Level  of  the  1st  factor  (row  number). 

Col.  3-  4  IDX3-  Level  of  the  3rd  factor. 

Col.  5-  6  IDX4-  Level  of  the  4th  factor. 

Col.  7-  8  IDX5-  Level  of  the  5th  factor. 

Col,  9-28  Cell  frequencies  for  the  levels  of  the  2nd  factor, 
Col.  9-12  (IDX1,  1,  IDX3,  IDX4,  IDX5) 

Col. 13-16  (IDX1 ,  2,  IDX3,  IDX4,  IDX5) 

Col. 17-20  (IDX1,  3,  IDX3,  IDX4,  IDX5) 

Col. 21-24  (IDX1,  4,  IDX3,  IDX4,  IDX5) 

Col. 25-28  ( IDX1 ,  5,  IDX3,  IDX4,  IDX5) 

♦•♦Notes  This  layout  is  chosen  since  most  user  will  think 
of  a  contingency  table  as  a  tv/o-way  table  of  rov/s 
(factor  1)  and  column  (factor  2).  The  levels  of 
the  other  factors  (3,  4,  5)»  if  any  are  kept 
constant. 
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•  OUTPUT  I  '  ' 

Vrite  the  intermediate  information  on  TAPE  10,  the 
temporary  data  set  needed  for  the  following  computer  program. 
*•  a.  Initial  estimated  and  approximated  weights, 
h.  Fletcher  and  Powell  descent  method. 

c.  Canonical-partial  and  canonical-multiple  correlations. 

d.  Reduction  weights  for  the  original  E-matrix. 

The  following  records  are  stored  in  TAPE  10 i 

1st  records  in  FORMAT (  215,  2E20.6  ) 

N-  Number  of  variables  {N=NDl+ND2+ND3+ND4+ND5-5) . 

LIMIT-  Maximum  number  of  iterations. 

EST-  Estimated  minimum  value  of  the  given  function. 

EPS-  Permissible  error. 

2nd  record!  in  FORMAT  612  ) 

NSET-  Number  of  sets. 

( NRST ( I ) f 1*1 , NSET )  for  N1 , N2 ,  N3,  N4,  N5. 

(N1*ND1-1,  N2=HD2-1,  N3=ND3-1,  N4=ND4-1,  N5«ND5-1) 
3rd  record!  in  FORMAT (  4E20.6  ) 

(X(I),I=1,N)  the  canonical  weights 
a.  In  C-E-R  ,  the  assumed  canonical  weights  values 
will  be  stored. 

b«  In  ICW,  the  assumed  canonical  weights  v/ill  be 
replaced  by  the  estimated  or  approximated  weights 
values. 

c.  In  PPM,  the  normalized  canonical  weights  will 


replace  the  previous  data. 


OUTPUT  t 

Write  the  intermediate  information  on  TAPE  10,  the 
temporary  data  set  needed  for  the  following  computer  program. 

a.  Initial  estimated  and  approximated  weights. 

b.  Fletcher  and  Powell's  descent  method. 

e.  Canonical-partial  and  canonical-multiple  correlations, 
d.  Reduction  weights  for  the  original  E-matrix. 

The  Following  records  are  stored  in  TAPE  10 t 
1st  recordi  in  FORMAT (  215,  2E20.6  ) 

N-  Number  of  variables.  (N=NDl+ND2+ND3+ND4+ND5-5) . 

LIMIT-  Maximum  number  of  iterations. 

EST-  Estimated  minimum  value  of  the  given  function. 

EPS-  Permissible  error. 

2nd  recordi  in  FORMAT (  612) 

NSET-  Number  of  sets. 

(NRST(I) , 1=1 ,NSET)  for  Nl,  N2,  N3,  N4,  N5 

(NloNDl-1,  N2=ND2-1 ,  N3=ND3-1,  N4=ND4-1 ,  N5=ND5-1) 

3rd  record!  in  FORMAT (  4E20.6  ) 

(X(I) ,1=1 ,N)  the  categorical  weights 
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4th  record*  in  FORMAT (  518  ) 

(NT(I,  J) ,  J-1,NRST(I) )  ,I*1,NSET)  the  marginal  totals 


for  each  set. 

5th  record*  in  FORMAT (  18  ) 

NTAL-  The  grand  total  of  the  contingency  table. 
6th  record!  in  FORMAT (  212,  (5E20.6)) 


ND,MK, ( (T(J ,K) ,K*1,ND) ,^=1 ,MK)  The  conditional  inverses 
of  Ti(  i  *  1,  2,  3,  4,  5. 

«LU 

7  record!  in  FORMAT (  4E20.6  )  ...  as  many  as  needed. 

All  rank  reduced  submatrices  of  the  super-matrix  R, 
stored  in  column-wise,  i.e.  R^,  R12»  H22*  R13*  R23* 
R33*  Ri4t  R24*  R34#  r44»  r15»  R25*  R35*  r45*  R55* 


APPENDIX  A2 

COMPUTER  PROGRAM  FOR  CONTINGENCY  TABLES 
TO  E  TO  R  MATRIX 
"C  -  E  -  R” 
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cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

C  THE  TEMPORARY  STORAGE  IN  TAPE 

C 

C 

C  TAPE  10-  STORE  THE  F0LL0HINO  INFORMATION  FOR  THE  FOLLOWING  PROORAHS  i 
C  —a— 

c 

C  18T  RECORD  - 

C  -STORED  IN  F0RHAT(2I2»2E20.6) 

C  N  -  NO.  OF  CATEGORICAL  NEI0HT8. 

C  UNIT  -  MAXIMUM  NO.  OF  ITERATIONS. 

C  E6T  -  ESTIMATED  NININIHUN  OF  A  GIVEN  FUNCTION. 

C  EPS  -  PERMI6SABLE  ERROR. 

C 

C  2ND  RECORD  - 

C  -STORED  IN  FORMAT! 8121 

C  NSET  -  NO.  OF  SETS. 

C  (NRST(I).I-l.NSET)  -  FOR  NI .N2.N3.N4.NS. 

C 

C  3RD  RECORD  - 

C  -STORED  IN  FORMAT! 4E20 .8) 

C  (X(I). 1*1. N)  -  THE  CATEGORICAL  HEIGHTS  FROM  THE  'FLETCHER  INITIA 

C  PROORAM.  AND  HILL  STORE  THE  RESULT  FROM  THIS  PROG 

C 

C  4TH  RECORD 

C  -STORED  IN  FORMAT (SIS I 

C  (NT(I.J).J=1.NRST(I)).  Ul.NSETS) 

C  -  THE  MARGINAL  TOTAL  OF  THE  CONTINGENCY  TABLE. 

C 

C  5TH  RECORD 

C  -STORED  IN  FORMAT! IS) 

C  NTAL  -  THE  GRANO  TOTAL  OF  THE  CONTINGENCY  TABLE. 

C 

C  8TH  RECORO  - 

C  -STORED  IN  FORMAT ! 212 « ! 5E20 .6 ) ) 

C  NO.HK.  ( ( ! T( I <J.K) «K=1 .NO) . J=1 »HK) .1=1 .NSETS) 

C  -  THE  CONDITIONAL  INVERSES. 

C 

C  7TH  RECORD  .... 

C 

C  -STORED  IN  FORMAT! 4E20.6) 

C  ALL  R  MATRICES  FROM  THE  'CONTINGENCY  TABLE  TO  E  TO  R'  PROGRAM. 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  IS  THE  MAIN  PROGRAM  FOR  DIRECT  CALCULATION  OF  R-HATRIX. 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C  THI8  IS  MAIN  CALLING  PROGRAM  TO  CALL  ALL  SUBROUTINE  AND  FUNCTION 

C  SUBPROGRAMS  TO  READ  A  CONTINGENCY  TABLE  UP  TO  S  LEVELS  INTO  A  SIN 

C  ARRAY. 

C  THE  INPUT-CARD  FORMAT  IS  AS  FOLLOHI.NO. 

C  RESPONSE  ON  LEVEL  1  (ROH  NO.)  ON  COLUMN  2. 

C  RESPONSE  ON  LEVEL  3  (NO.  ON  3RD  LEVEL)  ON  COLUMN  4. 
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C  RESPONSE  ON  LEVEL  4  (NO.  ON  4TH  LEVEL)  ON  COLUMN  0. 

C  RESPONSE  ON  LEVEL  5  (NO.  ON  5TN  LEVEL)  ON  COLUMN  8. 

C  SET  4TH  AND  5TH  LEVELS  TO  1.  IF  ONLY  3  VARIABLES. 

C  SET  5TH  LEVEL  TO  1.  IF  ONLY  4  VARIABLES. 

C 

C  THE  FREQUENCES  HILL  BE. 

C  ACCORDING  TO  ROW-WISE  DATA  FROM  THE  CONTINGENCY  TABLE! UP  TO  5 

C  ELEMENTS).  COL(l)  ON  COLUMN  12.  C0L(2)  ON  COLUMN  16.C0LO)  ON  COLU 

C  C0L(4)  ON  COLUMN  24.  C0L(5)  ON  COLUMN  28. 

C  N01  IS  NUMBER  OF  DISTINCT  RESPONSE  FROM  1ST  LEVEL. 

C  ND2  IS  NUMBER  OF  DISTINCT  RESPONSE  FROM  2ND  LEVEL. 

C  N03  IS  NUMBER  OF  DISTINCT  RESPONSE  FROM  3RD  LEVEL. 

C  N04  IS  NUMBER  OF  DISTINCT  RESPONSE  FROM  4fH  LEVEL. 

C  NOS  IS  NUMBER  OF  DISTINCT  RESPONSE  FROM  5TH  LEVEL. 

C  THE  OMITTED  LEVEL  IS  ALMAY8  SET  TO  1. 

C  NVAR  IS  THE  NUMBER  OF  LEVELS. 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

INTEGER  OUPUT 
DIMENSION  ISET(4).IFR(5) 

DIMENSION  AR(3125) 

COMMON  EE(15.S).NT(5.5) 

COMMON  N01 .N02.ND3.N04.N05.NVAR. OUPUT. HK1 .MK2.MK3.MK4.MK5.02.IEN0. 
1EC1S.S.5) 

REMIND  10 
INPUT  a  5 
OUPUT  a  6 
02=0. EO 

READ! INPUT .101 )  N01 .N02.N03.N04.N05.NVAR 

101  FORMAT! 6 12) 

WRITE! OUPUT, 4210) 

4210  FORMAT! 1H1////T35.32HTHE  CONTINGENCY  TABLE  INPUT  DATA  ) 

WRITE! IOUT .4201 )  NVAR.N01 .ND2.N03.ND4.N05 
4201  FORMAT! 1H0////T10.29HTHE  NUMBER  OF  SETS  INSETS)  s  .I6//T10.47HTH 
IE  NUMBER  OF  RESPONSES  CF  FIRST  LEVEL  !ND1)  =  .I6//T10.48HTHE  NUMB 

2ER  OF  RESPONSES  OF  SECOND  lEVEL  !ND2)  a  .I5//T10.47HTHE  NUMBER  OF 
3  RESPONSES  OF  THIRD  LEVEL  IND3)  =  .I6//T10.48HTHE  NUMBER  OF  RESPO 
4N6ES  OF  FOURTH  LEVEL  IN04)  =  .I5//T10.47HTHE  NUMBER  OF  RESPONSES  0 
5F  FIFTH  LEVEL  (NOS)  =  .18) 

NTAL=NC1»N03«N04«N0S 
WRITE! OUPUT. 4205) 

4205  FORMAT! 1H0//T15.  17HC0NTIN0ENCY  TABLE  ) 

WRITE! OUPUT. 4209)  ND2 

4209  FORMAT! IH0.T10 ,5X .5HLEVEL.9X .5HLEVEL ,3X .5HLEVEL.3X .SHLEVEL .7X .5HLE 
1VEL  /T10f6X.3H(l).5X.3Hl3)f5X.3H(4).5X.3H!5).  9X ,3H( 2 ) . 1 X .5H( 1  —  • 
212. 1H)  /) 

WRITEtOUPUT.4214) 

4214  FORMAT!  1H  .T10.100HiiiiiniiiiiimiHii*»MHii»»H»ii»»ni 

lllUlHIIIIIIIlMIIIUlIkllllllllllllMIUIIIIHIIuni//) 

00  10  1=1 .NTAL 

READ! INPUT. 102)  ( I SET! IA),IA=1 .4) .! IFR! IB) .IB=1 .N02) 

102  FORMAT! 412.514) 


nnnn 


1 55 


HRI  TE( OUPUT 1 4200 )  ( I6ET<  11.1*1.4) .( IFR(  IB)  .IB»1  .N02) 

4200  FORHOmHO.no. 4I0. SI  12) 

00  10  Jsl.N02 

LX=LT(ISCT(l).'I.lSETC2).2$En3).ISCT<4)) 

AR(LX)sIFRtJ) 

10  CONTINUE 

NNTAL=NTAL*N02 

HRITEl OUPUT .1100)  (AR(I).Isl .NNTAL) 

1100  F0RH0T(1H1.T10. 16HTHE  SINOLE  ARRAY  //(T10.5E20.6)) 

CALL  PARTA(AR.E.IENO) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccicccccccccccccccccccccccc 

THE  PARTA  SUBROUTINE  IS  TO  PLACE  THE  SINOLE  ARRAY  DATA  AR  INTO  THE 
HATR1X.  AND  HANIPULATE  TO  FIND  THE  VARIANCE-COVARIANCE  HATRICES. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

1101  CALL  LINKA 
1200  CALL  EXIT 

ENO 


nnnnnnnn 


SUBROUTINE  PARTA(AR.E.ILNO) 
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THIS  PROGRAM  IS  TO  PLACE  THE  SINOLE  ARRAY  AR  INTO  E  MATRIX  HHICH  I 
THE  PORI!  OP  EIK.I8.1C). 


R*l. 

Ell.  K*2 

E12*  Had. 

E22. 

K*4 

E13. 

K=5 

KaO 

ESS.  K*7 

E14.  K«8 

E24. 

K*9 

E34, 

K*10 

Kail 

E15.  K*12 

E25.  K=l3 

E35. 

K*14 

E45. 

K*1S 

AND  THEN  THE  VARIANCE-COVARIANCE  MATRICES  ARE  CALCULATED. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
INTEGER  OUPUT 

DIMENSION  ND0(5).1X(S).AR(3125>.E(15.5.5>.RSUH(S1.CSUM(5> 

COMMON  EEUS.51.NTCS.5) 

COMMON  NOl .N02 ,ND3 *ND4 .N05 .NVAR .OUPUT .NK I »MK2 ,MK3 .MK4 «HK5 .01 
IENOsIS 

IFINVAR-2)  10.11.10 

10  IFINVAR-3112.13.12 

12  IFINVAR-4)  14.15,14 

11  1£ND*3 
GO  TO  16 

13  IEN0*8 
GO  TO  10 

15  I£N0*10 
10  CONTINUE 

14  CONTINUE 
NOQ( 1 )*N01 
N00(2)*N02 
N0DO)*N03 
N00(4)*N04 
NOOISJbNOS 

00  17  Ksl.IENO 
00  17  1*1.5 
00  17  Jal.S 
17  E(K.I.J)=OZ 
KaO 

00  20  JAal.NVAR 
00  20  JBal.JA 
K.K.l 

UsNOO(JA) 

00  30  IAal.il 
I2=N00(JB) 

00  31  IB*l  .12 

CALL  MATHJA.JB.NOO.IX) 

ISalXCl) 

I4*IXC2) 

15*1X0) 

ISalXC  4 ) 
no  31  IC*1.I3 
00  31  10*1.14 
00  31  IE*1 .15 
00  33  10*1.10 
IF(JA-JB)  36.37,36 

37  GO  TO  (86. 35.98,36.36. 98. 30. 36.36,90.36.36. 36.36.98),K 
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98  CALL  HAT21IA.IB.IC.IO.IE.I0.E.AR.K) 

35  CONTINUE 

36  00  TO  <99.97,99.97 .97.99.97.97.97.99.97.97.97 .87.98).* 
98  CONTINUE 

00  TO  31 
97  CONTINUE 

CAUL  HAT3(IA.IS.1C.IO.IE.IO.E.AR.K) 

31  CONTINUE 

IFCJA-JBl  30.39.30 
30  CONTINUE 
38  CONTINUE 

00  TO  <90.91 .90.91 .91. 90.91 .91 .91 ,90.91 .91 .91. 91 .901.K 

90  CONTINUE 

CALL  HAT5I 12,11 .E.DZ .RSUH.K) 

CALL  NATO! 12*11 .02  *E .RSUH .C6UN *K 1 
GO  TO  89 

91  CALL  HAT4( 12,11 .E.OZ.K.CSUH.RSUHl 
CALL  PLACE! 12.11 ,CSUH .RSUH .NT . JA . JB 1 

89  CONTINUE 
20  CONTINUE 

CALL  JDEX1N00.NT.0UPUT.NVAR1 
WRITE! OUPUT. 1041 
104  FORHAT! 1H1 1 
CALL  0UPTA!E1 
RETURN 
ENO 


158 


102 

101 

103 

10 


*®®I*G**  T0TRL  Itl  AN  ARRAY  AMO  FIND  THE 
JV2?UnNE  J0EX  (N03. NT. IOUT.NVAR) 

0II1EN610N  N0D!5).NT!5.5) 

INPUT  «  10 
00  10  JAsl.NVAR 
lAaNOO! JA) 

WRITE! 10UT« 102)  JA 

F0RHAT(///T10,25HTHE  MARGINAL  TOTAL  OF  SET  .13) 
WRITE! I OUT .101 )  !HT! JA.J)»Jsl ,1A) 

FORMAT! 1H0.T10, 5110) 

WRITE! INPUT. 103)  !NT! JA.J) .Jsl .JA) 

FORMAT 1518) 

CONTINUE 
NTAL  s  0 


JO  m  N00!1) 

00  12  Isl , JB 

12  NTAL  a  NTAL  ♦  NTI1.I) 

WRITE! I0UT.10S)  NTAL 

105  FORMAT ! 1H0 . T10 » 17HTHE  GRAND  TATOL  *  .110) 
WRITE! INPUT. 103)  NTAL 
RETURN 
ENO 


GRAND  TOTAL 
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SUBROUTINE  PLflCEC I2,I3.CSUff.R8Ufl.NT.JR.JB) 
OIHENSION  C8UH(5).R&UMS).NT(S.51 
00  11  ROsl.19 
11  NTCJfl.KB)  s  CSUH(KB) 

00  14  HBsl.12 
14  NTIJB.NB)  s  RSUflCHB) 

10  CONTINUE 
RETURN 
END 


SUBROUTINE  HATH JA.JB.NOO.IX) 
OIHENSION  NDDC5I.IXC5) 

HXal 

DO  41  KXsl.S 
IFCKX-Jfl)  42*41*42 

42  IF(KX-JB)  43.41.43 

43  IXCHXIsNOOCKXJ 
HXsNXfl 

41  CONTINUE 
RETURN 
END 


SUBROUTINE  IMTZIIfl. IB. IC* 10. IE .IO.E.AR.K) 

INTEGER  OUPUT 

OIHENSION  ARC 3125 I .E( 1S.S.S) 

CrdHON  EE(15.5J,NT(S.SJ 

COHHON  NO 1 .N02.ND3.N04.N05.NVAR.0UPUT.HK1.HKZ.HK3.HK4.HK5.0Z 
GO  TOC  61 ,93 .63 .99 .99 .66 .99 .99 .99.70.99.99.99.99 .75 ) .K 
61  LXsLTC IB.IC.IO.IE.IG) 

GO  TO  60 

63  LXsLTC IC.IB.IO.IE.IG) 

00  TO  90 

60  LXsLTC IC.I0.IB.IE.IO) 

GO  TO  80 

70  LXsLTC IC. 10 .IE .IB .10) 

GO  TO  80 

75  LXsLTC IC. 10. IE, IG. IB) 

60  ECK.IB.IB)sECK.!B.I8)*flR!LX> 

99  RETURN 
ENO 


SUBROUTINE  I16T3U6.IB.IC.I0.IE.IO.E.6R.K) 

INTEGER  OUPUT 

0MEN6I0N  6R(3125)»EU5.5.5) 

COmtON  EE(15.S).NT15.5) 

C0IU10N  NOi  .N02  *N03 *N04  .NOS .NV6R  .OUPUT .HK1.KK2 *HR3  *(!K4  .NK5.0Z 
GO  TO  1 99  *62  »S9  *64  *65*99*67*68 .69  *98  *71 *72  *73 *74  #98 ) *K 
62  LXsLTUB.I6.IC.  10.  IE) 

GO  TO  76 

64  LXsLTU8.IC.I6.I0.IE) 

60  TO  76 

65  LXsLTUC.I8.I6.I0.IE) 

GO  TO  76 

67  LXsLTU8.IC.I0.I6.IE) 

GO  TO  76 

6B  LXsLTUC.IB.I0.I6.lE) 

GO  TO  76 

69  LXsLTUC.I0.10.I6.IE) 

GO  TO  76 

71  LXsLTUB.IC.I0.IE.I6) 

GO  TO  76 

72  LXsLTUC.IB.I0.IE.I6) 

GO  TO  76 

73  LX=LT(IC.I0.IB.1E.16) 

00  TO  76 

74  LXsLTUC.I0.IE.IB.16) 

76  E(K.IB.Ifl}sE(K.I8.l6)*6R(LX) 

99  RETURN 
END 
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SUBROUTINE  IWT4IIZ.I3.E.0Z.R.CSUlt.R$UH) 
INTEGER  OUPUT 

DWEN6I0N  E(15.5.5).CSUH(5).R8Un(5) 

OUPUT  s  6 
00  51  NOsl.12 
Rsumnoisoz 
00  51  KBsl.13 

51  RSUM(nB)sRSUMft8)*E(K.I1B.KB) 

00  52  KBsl.I3 
CSUI1(KB)=0Z 

00  52  HB=1.I2 

52  CSUH(KBlsCSUMKBl*E(K.HB.KBl 
RNsOZ 

00  53  KBsl .13 

53  flNsflN*CSUMKB) 

00  50  HBsl.12 
00  50  K8=1.I3 

50  EC  K .MB .KB  IsEC  K .MB .KB 1-RSUHC HB 1 ■CSUHC  KB 1/flN 
RETURN 
END 


SUBROUTINE  HRT51 12 . 13 .E .OZ .RSUH.R 1 
DIMENSION  E(15.S.51.RSUM51 
DO  51  MBsl.12 
RSUNCMBU02 
DO  51  KBal *13 

51  RSUMMB1=RSUN(HBUEIK.HB.KB) 

RETURN 

ENO 


SUBROUTINE  HATS  1 12 .13.02  .E  .RSUlt.CSUH.K  J 
DIHENSION  EU5.S.5).RSUIt(S).C$UnC5) 

COtrnON  EEU5.S) 

00  52  HB=l.I2 
00  52  KBsl.I3 

52  E(K.nB.KB)=OZ 
ANsOZ 

00  53  HBsl.12 

53  AN=AN«RSUH(H8) 

00  54  1*1.12 

EIK.I.DsRSUlim 

EEtK.IIsRSUnm 

54  C6UH( I JsRSUHt I ) 

00  50  HB*1.I2 
00  50  KB*1 .13 

50  E( K . NB .KB ) =E ( K . HB  »KB ) -RSUttt NB ) «RSUH ( K  B )/flN 
RETURN 


uuuu 
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SUBROUTINE  LINKS 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THE  SUBROUTINE  LINKS  IS  TO  PINO  THE  T  INVERSE  POR  CALCULATE  THE 
R  HSTRICES. 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

INTECER  OUPUT 

OMENS ION  RFXll l S .5 1 .RFX1 2( S .5 1 .RPX21 15.51 .RFX22C 8 .5 ) .RFX31 15.5). 
1RFX32(5.5).RFX41(S.5).RFX4215.5).RFX51(5.5).RFX52(5.5)«ES(5)»RF1(5 
2*5) 

OINENSION  ITEZC6) .MINITC201 
CONHON  EE( 15.5).NT(5.5) 

COMMON  N0l.N02.N03.N04.N0S.NVSR.0UPUT.nKI.HK2.HK3.nK4.nK5.DZ.IEN0. 
1EUS.5.S) 

INPUT  s  10 
REMIND  10 
HRITE(OUPUT .1013) 

1013  FORHST! 1H1/////T25.27HINF0RHRTI0N  STORED  IN  TSPE  ) 

NUTS  a  N01  ♦  ND2  ♦  N03  ♦  N04  ♦  ND5  -  5 
NHT1  =  150 
MT2  =*  O.EO 
MT3  =  l.E-5 
ITEHtlJ  a  NVSR 
ITEZ(2)  =  N01-  1 
ITEZC3)  s  N02  -  1 
ITEZ!  4 )  a  N03  -  1 
ITlZ(S)  a  N04  -  1 
ITEZI6)  a  NP5  -  1 
DO  1331  lal.NHTS 
1331  MINITU)  a  0-5E0 
00  1304  JfiaJ.NVRR 
IS  a  ITEZt JA*1 )  ♦  1 

WRITE!  OUP'JT .  1305 1  JS.INT!  JS.I)  .lal  .IS) 

1305  FORHPTt 1H0.T10.28HTHE  HSROINSL  TOTAL  POR  SET  .I3//IT10.5I8J) 

WRITE! INPUT. 1306)  INTI JS.I). lal .IS) 

1306  FORMAT! 516) 

1304  CONTINUE 

NTAL  a  0 
IS  a  ITEZC2 )  ♦  1 
00  1308  lal. IS 
1300  NTSL  a  NTAL  ♦  NTU.I1 
WRITE! OUPUT. 1300)  NTSL 

1309  FORHST! 1H0//T10.17HTHE  ORSN0  TOTRL  s  .18) 

WRITE! INPUT. 1306)  NTSL 

IKal 

KaO 

00  40  Ial.IENO 
KaK+IK 

GO  TO  (41. 40. 41. 40. 40. 41. 40. 40. 40. 41. 40. 40. 40. 40. 4II.K 
41  CONTINUE 

CSLL  PRRTE! 1EN0.K.ES.N0) 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


C  THE  SUBROUTINE  PRRTE  IS  TO  PINO  THE  EA  VECTOR  IN  0R0ER  TO  BE  USED 
C  CALCULTING  THE  T  CONDITIONAL  INVERSE. 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

CALL  TPRNHEfl.NO.RFl.HK.CZ) 

C 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THE  SUBROUTINE  TPRH1  IS  TO  FIND  THE  T  CONDITIONAL  INVERSE  DIRECTLY 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IFIK-1)  62.63.62 

63  CALL  TPRM2(RF1 .RFX11 .RFX12.HK.N0.NK1 .OUPUT) 

GO  TO  40 

62  IFCK-3)  64.6S.64 

65  CALL  TPRN2IRF1 .RFX21 .RFX22.HK. NO. HK2. OUPUT) 

GO  TO  40 

64  IFIK-6)  66.67.66 

67  CALL  TPRH2IRF1 .RFX31 . RFX32 .HK. NO. MK3. OUPUT) 

GO  TO  40 

66  IF(K~!0)  68.69.68 

69  CALL  TPRH2IRF1 .RFX41 .RFX42.HK. NO. HK4. OUPUT) 

GO  TO  40 

68  IFIK-15)  40.71.40 

71  CALL  TPRM2IRF1  .RFXS1  .RFX52.HK. NO. NKS. OUPUT) 

40  CONTINUE 

CALL  PflRTCt E.RFX11 .RFX1 2 .RFX21 .RFX22.RFX31 .RFX32 .RFX41 .RFX42.RFX51 
1  .RFX52.IEND) 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

C  THE  SUBROUTINE  PflRTC  IS  TO  FIND  THE  FINAL  OUTPUT  OF  THE  R  MATRICES 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

RETURN 

END 
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SUBROUTINE  PARTC! E «Rf XI 1 .RFX 12 .RFX2J .RFX22.RFX31 .RFX32.RFX41 .RFX42 
l.P«T!5l.RFXS2.IEND) 

INTEGER  OUPUT 

DIMENSION  Ef 15.5.5) .RFX11IS.5). RFX12IS. 5) .RFX21! 5.5). RFX22!5.5).RF 
1X31IS.5).RFX32!5.5).RFX411S.S).RFX42(S.S).RFX51!5.S).RFX52C5.5) 
COMMON  EEl 15*5)»NT!5<5) 

COMMON  NOl .N02 »N03 .N04 .ND5 .NVAR . OUPUT .MK 1  .HK2 »MK?..**.K4.NK5 .OZ 
OZ  a  O.EO 
WRITE! OUPUT. 101) 

101  FORMAT! 1H1) 

WRITE! OUPUT. 1021 

102  FORMAT!  1H0 • T 1 0 • 1 4HTHE  Ell  MATRIX  ) 

K=1 

CALL  0UPT3IMK1 . OUPUT. OZ) 

IFUEN0-!)  11.20.11 

11  CONTINUE 
WRITE! OUPUT. 103) 

103  FORMAT! 1H0.T10.14HTHE  R12  MATRIX  ) 

K=2 

CALL  0UPT2! NOl  .N02 .MK  1  *MK2 .RFX 1 1  .RFX22-.E.DZ .K .OUPUT ) 

Ra3 

WRITE! OUPUT. 104) 

104  FORMAT! 1H0.T10.14MTHE  R22  MATRIX  ) 

CALL  0UPT3IHK2. OUPUT. OZ) 

IFIIEN0-3)  12.20.12 

12  CONTINUE 
K*4 

WRITEtOUPUT.105) 

105  FORMAT! 1H0.T10.14HTHE  R13  MATRIX  ) 

CALL  0UPT2! NOl .N03.MK1 ,MK3 .RFX1 1 .RFX32.E ,0Z .IL.  OUPUT ) 

KsS 

WRITEfOUPI'T  .1081 

106  FORHAT 1 1  HD , T 1 0 • 1 4HTHE  R23  MATRIX  ) 

CALL  0UPT2IN02.N03.MK2.MK3.RFX21 .RFX32.E.0Z.K. OUPUT) 

K=6 

WRITEI0UPUT.107) 

107  FORMAT! 1HD.T10.14HTHE  R33  MATRIX  ) 

CALL  0UPT3IMK3. OUPUT. OZ) 

IF!  I END-6)  13.20.13 

13  CONTINUE 
Ks7 

WRITE! OUPUT  > 100) 

100  FORMAJ! 1H0.T10.14HTHE-R14-  MATRIX  ) 

CALL  0UPT2(N01 .N04.MK1 .MK4.RFX11 .RFX42.E.DZ.K. OUPUT) 

K=0 

HRITEtOUPUT .109) 

109  FOftMATUhO.TlO. 14HTHE  R24  MATRIX  ) 

CALL  0UPT2! N02 .N04.MK2 ,MK4 .RFX21 .RFX42 ,E , OZ ,K .OUPUT ) 

Ks9 

NRITEJ  OUPUT. 110) 

110  FORMAT! 1M0.T10.14HTHE  R34  MATRIX  ) 

CALL  0UPT2(N03 .ND4 .MK3.MK4.RFX31 .RFX42.E.DZ.K .OUPUT) 

KslO 

WRITE! OUPUT .111 ) 
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111  FORMAT!  1H0.T10.14HTHE  R44  MATRIX  1 
CALL  0UPT3(MK*.0UPUT.0Z) 

IFIIENO-IO)  14.20.14 

14  CONTINUE 
Kali 

WRITE! OUPUT. 112) 

112  F0RNATC1H0.T10.14HTHE  R15  MATRIX  ) 

CALL  0UPT2IN01 .NOS .MK1 ,HK2 .RFX1 1 .RFX52 .E.DZ .K .OUPUT) 
Kal2 

WRITE! OUPUT. 113) 

113  FORMAT! 1H0.T10.14MTHE  R25  MATRIX  1 

CALL  0UPT2! N02 .N05 .MK2.MK5.RFX21 .RFX52 .E .OZ .K .OUPUT ) 

KalS 

WRITE! OUPUT. 114) 

114  FORMAT! 1H0.T10.14HTHE  R3S  MATRIX  ) 

CALL  0UPT2! N03 .NOS .MK3.HK5.RFX31 .RFX52 ,E .OZ .K .OUPUT ) 
Kal4 

WRITE! OUPUT. 115) 

115  FORMAT! 1H0.T10. 14HTHE  R4S  MATRIX  ) 

CALL  OUPT2IN04.NOS.MK4.MK5.RFX41 .RFX5Z.E.0Z.K. OUPUT) 
KalS 

WRITE! OUPUT. 116) 

116  FORMAT! 1H0.T10. 14HTHE  R55  MATRIX  ) 

CALL  0UPT3IMKS. OUPUT. OZ) 

20  CONTINUE 
REWIND  10 
RETURN 
ENO 
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SUBROUTINE  PflRTEC IENO.K.ER.ND) 

OII1CNSION  Efl(5) 

COHHON  EEC  15.5). NTI5.S) 

COHHON  N01.N02.ND3.N04.N05.NVflR.0UPUT.nNl .nK2.HK3.nN4.RK5.0Z 
NO*N01 

IFCK— 1 )  43.70.43 

43  N0aN02 
IFCK-9)  44.70.44 

44  N0aNO3 

IF(K-S)  45.70.45 

45  N0aN04 
IFCK-10)  46.70.48 

46  NOaNOS 
70  CONTINUE 

DO  51  Ial.NO 
51  Efl(I)sEECK.I) 

RETURN 

END 
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SUBROUTINE  TfRltl  (  Eft  .NO »RF1  • HK .DZ ) 

DMENSION  Eflm.RFl(S.S) 

IW«NQ-1 
TOTALsOZ 
DO  10  Ul.NO 

10  TOTRLsTOTRUEfl(I) 

00  11  Ul.S 

00  11  J=1.S 

11  RFIU.JUOZ 

RF1 ( 1 .1USQRT1 TOTflL/lEflt 1 )■! TOTRL-ER( 1)11) 

00  12  U2-.NK 

TNlsTOTRL 

Hal 

HUM 

00  13  nUl.III 
13  TNUTNI-ERIIIU 
TNZsTNl-EAl II) 

00  12  Jsl.I 
IF(I-J)  30.31.30 

30  RFIU . J)sSORT( ERC 1 )/( TNUTN2 )  1 
DO  TO  12 

31  RF1( I  . J)=SQRT(TNl/(Efl( 1 1*TN2J 1 

12  CONTINUE 
RETURN 
END 


t. 
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SUBROUTINE  TPRH2IRF1 .RXl.RX2.nK.N0.nKL.OUm) 

INTEGER  OUPUT 

DIHENSION  RF1!S.5).RX1!5«5).RX2!5.5) 

INPUT  s  10 
HKLsHK 
00  10  Isl.HK 
00  10  d=l  .NO 
RXKI.J)sRFl(I.J) 

10  RX2(J.I)sRFl(I*J)  * 

WRITE! OUPUT. 101)  U  RXl(I.J).Jsl.NO). 1*1. HK) 

101  FORHAT! 1H0.T10.25HTHE  T  CONDITIONAL  INVERSE  //(T10.5E20.6)) 
WRITE! INPUT . 102 )  NO .HK . t  C RX1 ! I . J) . J»1 .NO) .1*1 .HK ) 

102  F0RHAT!2J2,!5E20.6)) 

RETURN 

END 


SUBROUTINE.  OUPT2I HI  .N2.N1  .N2.R1  .R2.E.0Z.K.0UPUT) 
INTEGER  OUPUT 

01 11ENS I  ON  Rl(5.5).R2I5.5).Ei  15.5.5)  .5(5.5)  .H0RMS.5) 

INPUT  «.  10 

DO  SO  1*1.5 

DO  10  Jal.5 

H(I.J)30Z 

10  HORK(I.J)*0Z 
00  11  1*1 .Ml 
00  11  J=1 »N2 
00  11  Lsl.Nl 

11  HORKCI««I)s  H0RK(I.J)*R1(I.L)bE(K.L.J) 

00  12  1*1 .HI 

00  12  Jsl »H2 
00  12  L=1 »N2 

12  HI I . J )sHC I . J ) ♦HORN  1 1 . L  )«R2(L . J ) 

HRITEC OUPUT.  101)  UWU.J)  .J=l.ri2).I=l  .HI ) 

101  F0RHRTC1H0.T10.5E20.6) 

HRITEC INPUT. 102)  CCHC I.J).Jsl.H2).Isl.Hl) 
lit?  roRHAJ(4E20.6) 

RETURN 

ENO 


SUBROUTINE  0UPT3(N1 .OUPUT .021 
INTEGER  OUPUT 
DIMENSION  RC5.5) 

INPUT  «  ID 
DO  55  1st .5 
DO  55  Jsl  .5 
55  RU.JlsO.EO 
DO  10  Isl.S 
10  RU.Ilsl.EO 

HRITEC OUPUT. 101 )  (CR(I.J) .Jsl ,N1 ) .1*1 .N1 1 
101  F0RHRT(1H0.T10.5ES0.6) 

HRITEt INPUT. 102 )  (IRC I .J) .Jsl .N1 1 .1«l .N1 1 
102  F0RHflTI4f20.6) 

RETURN 

ENO 


uuuu 
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FUNCTION  LT(I.J.K.L.H) 


»jx  xJxVx  X  Xx  xT  »J  xV  xV  xT x’ x'  x' h  x'  »J  x'  x  ►J’xVX' ht x' x  x* X  x  x’ kk  xj  xt x' x’ x’ x’x'x  x’xXxx  X  x  xxx_x  xV>>’ x'x'  xVxx XXV 


THIS  FUNCTION  6UBFR0GRAH  IS  TO  FINO  THE  INDEX  FOR  THE  SINGLE  ARMY 
HIM  THE  CONTINGENCY  TABLE. 


INTEGER  0UPUT 
C0HHON  EE( 15.5).HT(6*5) 

CCftHION  N01  .NOE .N03.N0 4 .NOS .NVAR.OUPUT .UNI  «HKE ,HK3 .HK4 .HNS .02 
LTsI  C I  |||-l  )»ND4»<  L-l  I  )*N03*C  f.-I  J  )»ND2*( )  ]aNOI»I 
RETURN 
END 


SUBROUTINE  OUPTA(E) 

INTERGCR  OUPUT 
DIMENSION  ND0(5) .E(  15*5*5) 

COIWON  EE(15.5).NT(5.5) 

COMMON  NOl  »N02  *N03  .N04  .N05  ■NVAR  .OUPUT .I1K1  »HK2  ,HK3 .HK4  .HRS 

NOOtllsNOl 

N00(2)sN02 

NOD(3)=ND3 

N00(4)sND4 

N00(5IsND5 

K=0 

DO  18  JAsl.NVAR 
DO  18  JBal.JA 
KslUl 

HRftEI OUPUT. 104)  JB.JA 

104  FORMAT! 1H0.T10.5HTHE  E.2I2.7H  MATRIX  ) 

IZsNOOiJB) 

13  a  NOO(JA) 

00  10  IB=1 .12 

WRITE! OUPUT. 105)  IEIK.IB.IC) .IC=1.I3) 

105  FORMAT!//! IX .T15.SE20.6)) 

18  CONTINUE 

RETURN 


APPENDIX  B 


COMPUTER  PROGRAM  FOR  INITIAL  WEIGHTS 
ESTIMATION  AND  APPROXIMATION 


CIO 
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0IMEN6ION  RR(1S.S.5).A(25).R(25).NRST(S).RHSI5.4).R8N(5.S) 
DIMENSION  VAVC5).U1(5).U2I5).U3(5).U4(5).U5I5).V1C5).V2(5).V3(5).V 
14I5).V5(5).H1(5).M2(5).H3(5).H4(5).M5(5).R1(5).R2(S).R3(S).R4(5).R 
25(5) 

OIHENSION  RS12(S.5).R813(5,5).R814I5.5).R$15I5.S).RS23IS.5).RS24(5 
l.S).RS25(5.S)*RS34(5.5).RS3S(5,S).RS45(5.5) 

)  XI 25) 

COMMON  RTOTL 

COMMON  HI  .N2.N3.N4.N5*  NSETS .  INPUT .  I  OUT  .K8ET 

DATA  U1.U2.U3.U4.U5.V1.V2.V3.V4.V5.U1. M2. H3.M4.M5.R1.R2.R3.R4.R5/1 
100>0.E0/ 

OflTfl  NRST/SaO/ 

REHINO  10 
INPUT  s  10 
I OUT  s  6 
UNIT  s  0 
OZ  2  O.EO 
NTOTL  s  0 

READ! INPUT .100)  NHTS .NHT1 .HT2 ,HT3 

100  F0RHATI2I5.2E20.8) 

READ! INPUT .101 )  NSETS.INRSTI I ) .1=1 .5) 

101  FORMAT! 6 12) 

DO  7  1=1.5 

7  NTOTL  =  NTOTL  ♦  NRST(I) 

ATOTL  =  NTOTL 
KSET  =  3 

IFCNSETS  -  2)  2.1.2 

2  KSET  *  0 

IF  INSETS  -  3,1,3 

3  KSET  =  10 

IF  INSETS  -  4)  4.1.4 
r,  KSET  *  15 
1  CONTINUE 

READ!  INPUT.  105)  (fl(I).Ial.NMTS) 

105  F0RMATUE20.6) 

N)  s  NRSTI1) 

N2  =  NRST12) 

N3  =  NRSTI3) 

N4  a  NRSTI4) 

NS  =  NRSTI5) 

DO  3311  JA=1. NSETS 
IA  =  NRSTIJA) 

331)  READ! INPUT. 2012)  INTI Jfl.I ).U1 .Ifl) 

2012  F0RHAT15I8) 

READ! INPUT. 2012)  NTAL 
DO  3312  JAM  .NSETS 

3312  READ! INPUT. 2013)  NO. UK. 1 1 RS12I I.J) ,J=J .NO) ,1*1 .HK) 

2013  F0RNAT12I2.I5E20.6)) 

CALL  REAINIRR .NSETS , INPUT .NRST .KSET ) 

5  CONTINUE 
2000  LIMIT  =  LIMIT  ♦  1 
ISTEP  *  1 


GO  TO  (3101 .3102). UNIT 

3101  CONTINUE 

CALL  RI0UT(RR.N6ET6.I0UT.NRST.K$ET) 

CO  TO  3103 

3102  CONTINUE 

CALL  ROUT ( RR .NSET6 .IOUT.NRST .KSET ) 

3103  CONTINUE 

CALL  EHPTY(RS12.RS13.RS14.RS15.RS23.RS24.RS2S.RS34.R83S.RS45.0Z) 

00  TO  (3201. 3202 1.LIHIT 

3201  CALL  RSKRS12.R813.RS14.RS1S.RS23.RS24.RS25.RS34.R335.RS4S.RR.N1.N 
12.N3.N4.N5.I0UT.NSET8) 

00  TO  3203 

3202  CALL  RS2I RS12.RS13.RS14.R615.RS23.RS24 .R82S.R834 .RS35 *RS4S .RR .N1 .N 
1 2 ,N3 . N4 .NS . I OUT .NSET8 ) 

3203  CONTINUE 

00  TO  (3301 .3302). LIMIT 

3301  NsNl 

00  TO  3303 

3302  N  a  N2 

3303  CONTINUE 

00  19  1=1 .N 
DO  19  J=1 «N 

19  RSN(I.J)  =  RS12II.J) 

LN  a  0 

9000  00  17  1=1 .N 
DO  17  J=I.N 

IJ  =  (J«J  -  Jl/2  ♦  I 
17  AUJ)  s  RSNU.J) 

NNN  =  tN  -  DmN/2  ♦  N 
NRITEU0UT.2C2)  (AII).I*1.NNN) 

202  FORHATUHO.TlO.nHTHE  PACKED  MATRIX  //1T10.5E20.8)) 

CALL  EIOEN(A.R.N.O) 

WRITEU0UT.203)  Atl) 

203  FORNATUHO.nO. 25HTHE  LAROEST  EIGEN-VALUE  //( T10.SE20.6) ) 
NRITEU0UT.204)  (RII).I=1,N) 

204  FORMAT UH0.T10.16HTHE  EIOEN-VECTOR  //( T10.5E20.8)) 

IF( LIMIT  -  1)  1000. 10ri, 1000 

1001  CALL  SECODIUl .Vl.V2.Wl.W2.W3.Rl .R2.R3.R4 .R  •  I8TEP.N.RHS.S0RTI A( 1 ) ) ) 
00  TO  566 

1000  CALL  SEC00(U2.V3.U3.H4,U4*V4,R5,U5.V5.K'5.R,IST£P.N.RHS,SQRT( A(  1 ))) 
566  IFtNSETS  -  2)  25,25.26 
26  CONTINUE 

CALL  RL0A0(RS12,RS13.RS14.RS15,R$23,RS24.RS25.R$34.RS35.RS4S.RSN.N 
1 «N1 .N2.N3.N4.N5.L2MIT • ISTEP.LM.NSETS .100) 

COTO  ( 9001 .90001*100 

9001  CONTINUE 
26  CONTINUE 

OO  TO  (2000.2004) .LIMIT 
2004  CONTINUE 

NS  =  NSETS  -  1 
IKX  =  1 
KN  »  0 

CALL  FINAL! VAV ,U1 .VI .N1 ,R1 .N8.N1 .IOUT.RKS.IKX) 

CALL  OORHF(VAV.Nl.IOUT.KN.X) 
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1NX  »  f 
KN  a  KN  ♦  HI 

CALL  FINAL! VAV. U2.V2, M2 .R2.N6.H2.I0UT.RHS. IKX) 
CALL  D0RHnVflV.H2.I0UT.KH.X) 

IFINSETS  -  2)  88.99.88 

98  CONTINUE 
1KX  a  8 

KN  a  KN  ♦  HZ 

CALL  FINAL! VAV .U3IV3.M3.R3. NS .N3 .IOUT.RHS.IKX) 
CALL  DORrtF! VAV.N3.I0UT.KN.X) 

IFINSETS  -  3)  97.99.97 
97  CONTINUE 
IKX  =  4 
KN  s  KN  ♦  N3 

CALL  FINAL! VAV .U4 .V4 .M4 .R4 .NS.N4 . I0UT.RH8 . IKX ) 
CALL  00RnnVAV.N4.I0UT.KN.XI 
IFIN8ET8  -  4)  96.99.96 
96  CONTINUE 
IKX  =  5 
KN  =  KN  ♦  N4 

CALL  FINAL! VAV .US .V5 .NS .R5 .NS .NS . I0UT »RHS . IKX ) 
CALL  00RnnVAV.N5.I0UT.KN.Xl 

99  CONTINUE 

CALL  FILUPtX.NTOTL. INPUT) 

REMIND  10 

STOP 

ENO 

SUBROUTINE  REAIN! R.N8ET8. INPUT .NRST.KSET) 

01 KENS I ON  Ri 15.5.5) .NRSTtS) 

K  s  1 

00  10  Jsl.NSETS 
NR  s  NRSTCJ) 

DO  10  1=1. J 
NB  a  NR8T( 1 1 

REAO l INPUT. 102)  ( (R!K, IX. JX )  .JX=1 .NR) .IX=1 .NP # 
102  F0RKAT(4E20.6) 

K  =  K  ♦  1 

If (K  -  KSET).  10,10.11 

10  CONTINUE 

11  CONTINUE 
RETURN 
ENO 
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SUBROUTINE  RIOUT(R.NSETS.IOUT.NRST.KSET) 

DIMENSION  R( 15.5.5) «NRST( 5) 

WRITE! I0UT.100) 

100  FORMAT! 1H1 .T25.49HINITZAL  ESTIMATED  HEJ0HT8  fOR  FLETCHER  AND  POWEL 
1L  ) 

UNITE!  I  OUT  .608 )  NSET8.1NRST! I ).I*1.5) 

600  FORMAT! 1H0.T10.26HTHE  NUMBER  OF  SETS  INSETS)  a  .I6//T10.37HTHE  NUN 
1BER  OF  ROUS  OF  11.1)  SET  N1  »  .I6//T10.37HTHE  NUMBER  OF  ROUS  OF  ( 
tt.2)  SET  HZ  n  .I6//T10.37HTHE  NUMBER  OF  ROUS  OF  (3.3)  SET  N3  «  . 
3I6//T10.37HTHE  NUMBER  OF  ROUS  OF  (4.4)  SET  N4  «  .I0//T1O.37HTHE  N 
4UHBER  OF  ROUS  OF  (5.5)  SET  NS  *  .16) 

MRITE( IOUT  *140) 

140  FORMAT! 1H0.T35.14HTHE  INPUT  DATA  ) 

K  «  1 

DO  10  Jsl.NSETS 
Nfl  =  NRST(J) 

DO  10  1=1, J 
NB  »  NRST( I ) 

HRITEI IOUT. 130 )  ( (R(K.IX.JX) . JXsl .Nfl) .IX=1 .NB) 

130  FORMAT! 1H0//IT10.5E20.8)) 

K  s  K  ♦  1 

If (K  -  KSET)  10.10.11 

10  CONTINUE 

11  CONTINUE 
RETURN 
ENO 
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SUBROUTINE  ROUTC R .NSET6 . 1 OUT »NRST .KSET) 

DMENSION  R( 15.5,5) .NRSTC 5) 

HRITE(IOUT.UO) 

140  FORflATl 1H1 »T35 .26HTHE  TRANSPOSED  INPUT  DATA  ) 

K  a  1 

00  10  Jsl .N8ET8 
NA  a  NRST1J) 

00  10  I=1.J 
NB  a  NRSTU1 

HRITEl I OUT ,  190 )  (1R1K.IX.JX) . JX=1  .NA ) . IXsl ,NB) 

130  FORIIATt  1H0//(T10,5EZ0.6)1 
R  a  K  ♦  1 

IFCK  -  KSET)  10.10.11 

10  CONTINUE 

11  CONTINUE 
60S  RETURN 

ENO 

SUBROUTINE  EnPTYlRS12.RS13.RS14.RS15.RS23.RS24.RS2S.RS34.RS35.RS45 
l.OZ) 

DIMENSION  RS121S.S) .RS131S.5) ,RS14(5.5) .RS1515.5) .RS2315.5) .RS2415 
1 ,5) .RS25(5.5) .RS34(S.S).RS35(5.5) .RS4515.5) 

00  1002  1*1.5 
00  1002  Jsl. 5 
R51ZII.J)  =  OZ 
RS13CI.J)  s  OZ 
RS14CJ.J)  s  OZ 
RS151I.J)  s  OZ 
RS23(I.J)  s  OZ 
RS24U.J)  s  OZ 
RS2S'.  I  •  J )  s  OZ 
RS34U.J)  s  OZ 
RS35II.J)  s  OZ 
RS45U.J)  s  OZ 
1002  CONTINUE 
RETURN 
ENO 


c 
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SUBROUTINE  RLOADI R312.RS13 .RSI 4 .RS15 .RS23.RS24 .RS2S.RS34 .RS35.RS45 
1  .RSN.N.N1 #N2  .N3.N4 .N5.LIMIT . I STEP .LM .NSET6 , IGO ) 

01  HENS I ON  RS12I5.5)  .RS13I 5.5 )  .RS14 1 5 .S ) .RS15I 5 .5) .RS23( 5.5 )  .RS24I 5 
1.S).RS2S(S.5),RS34(S.S),RS35CS.S).RS4SIS.S).RSNIS.S) 

100  i  Z 

26  LH  =i  Lll  ♦  1 

IFtl.M  -  n  28,27.28 

27  CONTINUE 

00  TO  I2S01 ,2502)  .LIMIT 

2501  N  s  N1 

GO  TO  2601 

2502  N  =  N3 
2601  00  29  1  =  1  .N 

00  29  J=1 ,N 

29  RSNII.J)  =  RS13U.J) 

ISTEP  =  ISTEP  ♦  1 

CO  TO  9000 

28  IFILH  -  2)  30.31.30 

31  CONTINUE 

00  TO  (2701 .2702). LIMIT 

2701  N  *  N2 

CO  TO  2801 

2702  N  =  N3 

2801  00  32  Ul.N 
00  32  J=1.N 

32  RSNII.J)  =  RS23I I .J) 

ISTEP  «  ISTEF  ♦  1 

00  TO  9000 

30  IFINSETS  -  3)  25.2S.4S4 
434  IFILH  -  3)  34.3S.34 

35  CONTINUE 

CO  TO  12703. 2704). LIMI7 

2703  N  s  N1 

00  TO  2802 

2704  N  =  N4 

2802  DO  36  Isl.N 
00  36  J=1 ,N 

36  RSNII.J)  =  RS14U.J) 

ISTEP  =  ISTEP  ♦  1 

00  TO  9000 

34  IFILH  -  4)  37,38.97 

38  CONTINUE 

00  TO  (270S.27CE). LIMIT 

2705  N  =  N2 

00  TO  2803 

2706  N  =  N4 
2003  00  39  Ul.N 

00  39  Jal.N 

39  RSNII.J)  -  RS2411.J) 

ISTEP  s  ISTEP  ♦  1 

00  TO  9000 

37  IFILH  -  5)  51.40,51 

40  OO  TO  (2711. 2712). LIMIT 
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2711  N  =  N3 

GO  TO  2804 

2712  N  =  N4 

2804  00  41  Isl.N 
00  41  Jsl.N 

41  RSN(I.J)  s  RS341I.J) 
ISTEP  a  I6TEP  ♦  1 
GO  TO  8000 

51  IF1NSET8  -  4)  2S.25.S2 

52  1FILN  -  6)  53.54.53 

54  CONTINUE 

GO  TO  12713.2714). UNIT 

2713  NsNl 

GO  TO  2805 

2714  N  s  NS 

2805  00  61  Isl.N 
00  61  Jel.N 

61  RSN(I.J)  a  RS15U.J) 
ISTEP  s  ISTEP  ♦  1 

GO  TO  8000 

53  IF1LN  -  7)  56.55.58 

55  CONTINUE 

00  TO  (2715.2716) .LIHIT 

2715  N  a  N2 

00  TO  2806 

2716  N  s  N5 
2808  00  62  Isl.N 

DO  62  Jsl.N 

62  RSNJ I ,J )  s  RS25(I.J) 
ISTEP  s  ISTEP  ♦  1 

00  TO  9000 

56  IF(IN  -  8)  57.58.57 

58  00  TO  (2717.2718) .UNIT 

2717  N  s  N3 

00  TO  2807 

2718  N  s  NS 

2807  00  63  Isl.N 
DO  63  Jsl.N 

63  RSNII.J)  s  R53SU.J) 
ISTEP  *  ISTEP  ♦  1 

00  TO  9000 

57  IFHH  -  9)  25.59.25 

58  00  TO  (2719. 2720), UNIT 

2719  N  s  N4 

00  TO  2808 

2720  N  s  NS 

2808  DO  64  Isl.N 
00  64  Jsl.N 

64  RSNU.J)  s  RS45U.J) 
ISTEP  a  ISTEP  ♦  1 

9000  CONTINUE 

RETURN 

25  CONTINUE 

100  a  l 


SUBROUTINE  S£C0D(V1.V2,V3.V4.V5.V6.V7,V8.V9.V10,R.ISTEP.N.RHS.A) 
01  HENS  I  ON  Vl£S).V2(S).V3£S).V4(5).V5£S).V6(5).V7(5).V8C5),V9lo)f 
10(5) .R(5).RHS(5.4) 

00  TO  ( 1 .2,3.4 .5.6.7,8.9.10.11 ) .ISTEP 

1  00  901  1=1. N 

901  VI ( I )  =  R( I ) 

RHS(l.l)  =  A 
RHS(2,1)  =  A 
00  TO  11 

2  00  902  1=1  .N 

902  V2(  I )  =  RU) 

RHS( 1 .2)  =  A 
RHSO.l)  =  A 
00  TO  11 

3  00  903  1=1. N 

903  V3(I)  =  RU) 

RHS£2,2)  =  A 
RHS(3,2)  =  A 
00  TO  11 

4  00  304  1=1. N 

904  V4U)  =  RU) 

RHSU.3)  =  A 
RHS(4.1)  =  A 
00  TO  11 

5  00  905  1=1. N 

905  VSU)  =  R(I) 

RHS(4.2)  =  A 
RHS12.3 )  =  R 
00  TO  11 

6  00  906  1=1. N 

908  V6(I)  =  RU) 

RHSt  4.3)  =  A 
RhS  £  3 . 3 )  =  A 
00  10  11 

7  00  907  1=1, N 

907  V7(  I )  =  RU) 

RHSU.4)  =  A 
RHSt 5. 1 )  =  A 
00  TO  11 

8  00  908  1  =  1. N 

908  V8U)  =  RU) 

RHSU.4)  =  A 
RHS(5.2)  =  A 
GO  TO  11 

9  00  909  1=1, N 

909  V9U)  =  R(I) 

RHS (3,4)  =  A 
RHS  £  S , 3 )  =  A 
OO  TO  11 

10  00  910  1  =  1  . N 

910  V10U)  =  RU) 

RHS( 4.4)  =  A 
RHS£5.4)  =  A 


RETURN 

ENO 


Tl 
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SUBROUTINE  RS2(RS12.RS13.RSl4.RS15.FS23.RS24.Ri2SrRS34.RS35.RS45.R 
1,  N1.N2.N3.N4.NS.10UT.NSETS) 

DIMENSION  RS121 5.5) .RS131 5.5) .RSI 4(5.5) .RSI 51 5.5) .RS23(5.5) .RS2415 
1 .5) .RS2515.5) .RS3415 .5) .RS351 5.5) «RS45( 5.5) 

DIMENSION  Ft  15.5.5) 

HRITEdOUT.lOO) 

IDO  FORMflTI 1HD.T10.25HTHE  TRANSPOSED  R-6TRR  SET  ) 

KX  s  2 

DO  10  1=1 .N2 
DO  10  J=1.N2 
DO  10  K=1.N1 

10  RS12U.J)  =  RS12II.J)  ♦  RtKX.K .  J)«R(KX»K  ►  I ) 

HRITE(IOUT.lOl)  ( I RS121 I ,J) , J=1 ,N2) .1=1 ,N2) 

101  FORMAT ( 1HO//(T10.5E20.6)) 

IFfNSETS  -  2)  501.5.501 
501  CONTINUE 
KX  s  4 

DO  li  1=1. N3 
DO  11  J=1.N3 
DO  11  K=1.N1 

11  RS13U.J)  =  RS13C I .  J )  ♦  R(KX.K.J)bRIKX.K.I) 

KX  =  S 

DO  12  1=1. N3 
DO  12  J=1.N3 
00  12  K=1.N2 

12  RS23H.J)  =  RS23U.J)  ♦  R(  KX  ,K .  J )«R(KX ,K . I) 

NRITEdOUT.lOl )  dRSl3U.J).J=l.N3).I  =  l.N3) 

WR I TE ( IOUT .101 )  CCRS23(I,J).J=l.N3),I=i.N3) 

IF( NSETS  -  3)  1.5.1 

1  CONTINUE 
KX  =  7 

DO  13  1  =  1. N4 
DO  13  J=1.N4 
DO  13  Ksl.Nl 

13  RS14U.J)  =  RS14U.J)  ♦  Rt  KX.K  .J)«R(KX.K .  I ) 

KX  =  0 

DO  14  1=1. N4 
DO  14  J=1.N4 
DO  14  K=1,N2 

14  RS24H.J)  =  RS24U.J)  ♦  R(KX.K.J)«RCKX.K.I ) 

KX  =  9 

DO  15  1  =  1.  N4 
DO  15  J=1,N4 
DO  15  K=1.N3 

15  RS34U.J)  =  RS34(  I  •  J )  ♦  R(KX.K.J)*R(KX.K.I) 

KX  =  11 

00  16  1=1. NS 
DO  16  J=1 .NS 
DO  16  X=1.N1 

16  RS1SU.J)  =  RS1SCI.J)  ♦  R(KX  .K  ,«i  KX  ,K .  I ) 

KX  =  12 

00  17  1  =  1  .NS 
DO  17  J=1 ,N5 
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DO  17  K=1,N2 

17  RS2SU.J)  =  RS25U.JJ  ♦  RIKX.K.JJ«R(KX.K, I ! 
KX  =  13 
00  18  Isl ,N5 
00  18  J=1 .NS 
00  18  K=1 ,N3 

!8  RS3SII.J)  =  RS351I.J)  ♦  RC*  X,K.J)*RlKX.K.I) 
KX  =  14 
00  13  Isl. NS 
00  19  Jsl.NS 
00  13  Ksl.N4 

IS  RS4SU.J)  s  RS45(I.J)  t  RlKX.K.JlsRtKX.K.I ‘ 
WRITE!  IOUT. 101)  CIRSISU.JI.JsI.NSI.I 
WRITEnOUT.lOl)  C£RS2Sn.J).Jsl.N51.It  i  .NS 
WRITE! IOUT. 101)  ! (RS35! I.JJ.Jsl ,NSi.I=l ,NS 
WRITE! IOUT. 101)  ! (RS4S1 I .Jl.Jsl ,N5) ,1=1 ,N% 

5  CONTINUE 
RETURN 
ENO 
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SUBROUTINE  RSI ( TS1 2 .RS13 ,RS1 4 .RSI S .RS23 .RS24 .RS25 .RS24 .RS3S .RS45 . 

1  R.N1.N2.N3.N4.N5.I0UT.NSET6) 

DIMENSION  RS12!5.S) .RS13!S.5) .RS1415,5).RS15(5.5).RS23!5.5)*RS24(5 
1 ,5) ,RS25( 5.5) ,RS34( 3 .5) .RS35! S.S) .RS4515 -5) 

DIMENSION  R( 15.5.5) 

WRITE! IOUT .100) 

100  FORMAT! 1H0.T1O.10HR-STAR  SET  ) 

KV  .  9 

DO  10*I=1.N1 
DO  10  J-1.N1 
00  10  K=1.N2 

10  RS12!  I  .  J)  s  RS12U.J)  ♦  RIKX.I  .K)»R(KX.J.K) 

WRITE! IOUT. 101 1  !1 RS 12(1. J).J=1.N1). 1=1, Nl) 

101  FORMAT! 1H0//(T10.5E20. 6)1 
IFINSETS  -  2)  SOI, S. 501 

501  CONTINUE 
KX  a  4 
DO  11  1  =  1.  N1 
00  11  Jsl.Nl 
DO  11  K=1 ,N3 

11  RS13CI.J)  =  RS13! I . J )  ♦  R(KX.I.K)sR(KX.J.K) 

KX  =  5 

DO  12  1=1 ,N2 
DO  12  J=1.N2 
DO  12  Kal,N3 

12  RS23(I,J)  =  RS23U.J)  ♦  R(KX.I.K)«R(KX.J.K> 

WRITE! IOUT. 101)  !  < RS13!I ,J) .J=l ,N1) .1=1 ,N1 ) 

WRITE! IOUT. 101 )  ( ( RS231 I ,J) . J=1 .N2 ) .1=1 ,N2) 

IrtNSETS  -  3)  1.5.1 

1  CONTINUE 
KX  =  7 

DO  13  Isl.Nl 
00  13  J=1.N1 
DO  13  K=1.N4 

13  RS14(I,J)  s  RS14U.J)  t  R(  KX .  I  ,K  1«R(  KX .  J  ,K  1 
KX  =  8 

00  14  1=1 ,N2 
DO  14  J=1.N2 
00  14  K=1,N4 

14  RS24! I .J 1  =  RSZ4II.J)  ♦  RIKX.I ,K)*R(KX.J.KJ 
KX  =  9 

DO  IS  1=1. NO 
00  15  J=1.N3 
00  IS  X=1.N4 

15  RS34U.J)  =  RS34U.J)  ♦  RIKX.I .K)»R(KX.J,K) 

WRITE! IOUT .1011  ( ! RSI  4! I .J. ,J=i .Nl) ,1  =  1  ,N1 ) 

WRITE! IOUT. 101)  1  ( RS24! I . J) , J=1 .N2 1 .1  =  1 ,N2) 

WRITE! IOUT. 101)  !  (RS34! I.J)»J=1.N3).I  =  1 .N3) 

IFINSETS  -  4)  2,5.2 

2  CONTINUE 
KX  =  11 

DO  16  Isl.Nl 
DO  16  Jsl.Nl 


188 


00  16  Ksl.NS 

16  RS1SCI.J)  a  RS151I.J)  ♦  RIKX.I .K)sR(KX.J.K) 
KX  a  12 

00  17  1st ,N2 
00  17  Jsl.N? 

00  17  Ksi ,N5 

17  R62SU.J1  s  RS25I I .  J )  ♦  RCKX.I ,K)sR(KX.J,K) 
KX  s  13 

00  16  Isl ,H3 
00  19  Jsl «N3 
00  16  Ks!,*!5 

18  RS3SU.J)  s  RS3SCI.J)  ♦  RIKX.I .K)sR(KX.J.K) 
KX  s  14 

00  19  Isl ,N4 
00  19  Jsl ,N4 
00  19  Ksl ,N5 

19  RS45CI.J1  s  RS45C I .J)  4  RIKX.I ,J)«R(KX.J.K) 
HR X TEC  I OUT.  101 1  C(RS1S(I.J).J=1.N1).I*1 .Nl) 
WRITE! I OUT.  101 )  !(RS25II.Ji.Jsl,N2).Isl.N2) 
WRITE! I OUT .101 )  <(RS351I.J).J=1.N3).I=1.N3) 
WRITE! I OUT, 101 1  ( 1RS45C 1 ,J),J=1 ,N4 ) .1=1 ,N4 ) 

S  CONTINUE 
RETURN 
ENO 


SUBROUTINE  OORMF! VAV ,N . IOUT .KN .X ) 

DIMENSION  VAVI5)  ,X(2S) 

SUM  =  O.EO 
00  1  Ul.N 

1  SUH  =  SUM  ♦  YAVm»»2 
QbU'1  =  SORT!  SUM) 

00  2  Ul.N 

2  VriVI l  )  =  VflV(I)/QSUM 

write:  iout  ,1011  (Vflvm.i=i.N) 

101  FORMAT! 1H0.T30.30HTHE  NORMALIZED  INITIAL  WEIGHTS  ///! T10.5E20.6) ) 
DO  3  1  =  1. N 
IJX  =  KN  ♦  I 

3  X(IJX)  =  VAV(I) 

RETURN 

END 


SUBROUTINE  FINALfVAV.Sl ,S2,S3.S4.NS.I0UT.RhS.IKX) 

DIMENSION  S1!S).S2(S).S3!51 .S4!S) 

DIMENSION  VAV(S) 

DIMENSION  RHSIS.4) 

COMMON  ATOTL 
JKX  =  IKX 
DO  10  1  =  1. N 

10  VAV(I)  =  !S1(I)  ♦  S2CI)  ♦  S3!  I )  ♦  S4!  I ) )/  ATOTL 
WRITE!  IOUT  .  140  5  (VflVm.Ul.N) 

140  FORMAT! 1H0..V/T10.43HTHE  OUTPUT  WEIGHTS  FOR  FLETCHER  AND  POWELL  / 
1/t  710.5E20.6)  1 
RETURN 
END 


oooooooooooo  ooor>ooor>oooooor>r>r>or>r>or>oor>or>ooc,  or»r>oor>oooo 
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SUBROUTINE  EIGEN 
PURPOSE 

COMPUTE  EIGENVALUES  ANO  EIGENVECTORS  OF  fl  REAL  SYMMETRIC 
MATRIX 

USAGE 

CALL  EIGEN(A.R.N.HV) 

DESCRIPTION  OF  PARAMETERS 

A  -  ORIGINAL  MATRIX  I  SYMMETRIC ) .  DESTROYED  IN  COMPUTATION. 
RESULTANT  EIGENVALUES  ARE  DEVELOPED  IN  DIAGONAL  OF 
MATRIX  A  IN  DESCENDING  ORDER. 

R  -  RESULTANT  MATRIX  OF  EIGENVECTORS  (STORED  COLUMNWISE, 

IN  SAME  SEQUENCE  AS  EIGENVALUES) 

N  -  ORDER  OF  MATRICES  A  AND  R 
MV-  INPUT  CODE 

0  COMPUTE  EIGENVALUES  AND  EIGENVECTORS 
1  COMPUTE  EIGENVALUES  ONLY  (R  NEED  NOT  BE 

DIMENSIONED  BUT  MUST  STILL  APPEAR  IN  CALLING 
SEQUENCE) 

REMARKS 

ORIGINAL  MATRIX  A  MUST  BE  REAL  SYMMETRIC  (STORAGE  MODE=l ) 
MATRIX  A  CANNOT  BE  IN  THE  SAME  LOCATION  AS  MATRIX  R 

SUBROUTINES  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

METHOO 

DIAGONALIZATION  METHOD  ORIGINATED  BY  JACOBI  AND  ADAPTED 
BY  VON  NEUMANN  FOR  LARGE  COMPUTERS  AS  FOUND  IN  ’MATHEMATICAL 
METhODS  FOR  OIOITAL  COMPUTERS’,  EDITED  BY  A.  RALSTON  AND 
H.S.  HILF.  JOHN  WILEY  ANO  SONS.  NEW  YORK.  1962,  CHAPTER  7 


SUBROUTINE  EIOEN(A.R.N.HV) 
DIMENSION  A(n.RU) 


IF  A  DOUBLE  PRECISION  VERSION  OF  T!'IS  ROUTINE  IS  DESIRED,  THE 
C  IN  COLUMN  1  SHOULD  BE  REMOVED  FROH  THE  DOUBLE  PRECISION 
STATEMENT  WHICH  FOLLOWS. 

DOUBLE  PRECISION  A,R,AN0RM,ANRM\.THR,X,Y,SINX.SINX2.C0SX. 

1  COSX2.SINCS, RANGE 

THE  C  MUST  ALSO  BE  REMOVED  FROM  DOUBLE  PRECISION  STATEMENTS 
APPEARING  IN  OTHER  ROUTINES  USED  IN  CONJUNCTION  WITH  THIS 


o  r>  o  r>  r>  o  ooo  o  o  o  o  o  o  o  o  o  n  o  n 
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ROUTINE. 

THE  DOUBLE  PRECISION  VERSION  OF  THIS  SUBROUTINE  HUST  ALSO 
CONTAIN  DOUBLE  PRECISION  FORTRAN  FUNCTIONS.  SQRT  IN  STATEMENTS 
40.  68.  75.  AND  78  HUST  8E  CHANGED  TO  DSQRT •  ABS  IN  STATEMENT 
62  MUST  BE  CHANGED  TO  DABS.  THE  CONSTANT  IN  STATEMENT  5  SHOULD 
BE  CHANGED  TO  1-00-12. 


GENERATE  IDENTITY  MATRIX 

5  RANOEsl -0E-6 
IF(HV-l)  10.25.10 
10  IQs-N 

00  20  Jsl.N 
IQsIQ+N 
DO  20  1=1 .N 
I JsIQtl 
R(IJ)=0.0 
Ifll-J)  20.15.20 
15  RdJI-i.O 
20  CON TJ HUE 

COnr’JTE  INITIAL  AND  FINAL  NORMS  (ANORM  AND  ANORMX ) 

25  ANORM.  j.O 
DO  3S  . ~1 .N 
DO  3S  J-i.N 
IF( I-J 5  30.35.30 
30  IA=I>( J*J-J]/2 

ANORM=ANORMfAl IA’mAI IA) 

35  CONTINUE 

IF (ANORM 1  165.165.40 
40  AN0RM=1 .4l4*SQRT( ANORM! 

ANRMX=ANORM«RANOE/FLOAT( N 1 

INITIALIZE  INDICATORS  AND  COMPUTE  THRESHOLD.  THR 

IND=0 

THR=ANORM 

45  THR=THR/FLOAT(N) 

50  L=1 
55  M=L»1 

COMPUTE  SIN  AND  COS 

60  MQ=(M»H-M)/2 
LQ=(L«l-U/2 
LMaLi-MQ 

62  IF(  A9S( A( LM )  I-THR I  130.65.65 
65  IN0=1 

ll=l*lq 

MMsM+HQ 


o  o  o  o  o  ooo 
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X=0.5«(A(LD'NtNMl) 

68  *V=-flC LH)/  SQRTIA(LH)«AILH)*X«X) 

IF(X)  70,75.75 
70  Y= 

75  SINX=Y/  6QRT(2.0«U.0*(  SQRTll  .0-Y*Y 1 ) ) ) 
SINX2=SINX»SINX 
78  C0SX=  SQRTU.0-8INX2J 
C0SX2=C0SX*C0SX 
SINCS  =SINX«C03X  ’ 

ROTATE  L  AND  rt  COLUMNS 

Iia=N«{L-l) 

IHQsN«lM-n 
00  125  1=1,  N 
!Q={I«I-I)/2 
IF(I-L)  80,115,80 
80  IFtl-M)  85.115.90 
85  IM=I*Mfl 
CO  TO  95 
90  IM=M-mQ 

95  IF(I-L)  100.105.105 
100  IL=I*LQ 
CO  TO  110 
105  IL=L+IQ 

110  X=At IL )«C0SX-A( IM)«SINX 

At  IH  )=A(  IU«SINX*A(  IflluCOSX 
At IL )=X 

115  IFtMV-d  1Z0.125.120 
120  ILR=ILQ»I 
IMR=IMa»I 

X=Rt  I'.R>COSX-R.  IMR)«SINX 
Rt IMR )=R( ILR5«SiNX*R( IMR?«COSX 
R£ ILK )=X 
125  CONTINUE 

X=2.0«At!.H5«$INC$ 

Y=At  LL  )»C0SX2*At  MM )»SINX2-X 

X=AtLL)-SINXL'*C»MM)*C0SX2+X 

A(LM)  =  t At  LLl-At  MM ) )»SiNCS*At LM )■! C0SX2-SINX2) 

A(LU=Y 

AtMM)=X 

TESTS  FOR  COMPLETION 


TEST  FOR  M  =  LAST  COLUMN 


130  IflH-N)  135,140.135 
135  M=M*l 
co  r 0  go 


c 

r  TEST  FOR  L  =  SECOND  FROM  LAST  COLUMN 

C 

MO  IFlL-tN-1  5  )  145.150.145 
145  L=L+1 


non  o  o  o 
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00  TO  55 

150  IFtIN0-li  160.1S5.160 
155  INOsO 
00  TO  50 

COMPARE  THRESHOLD  WITH  FINAL  NORM 

160  IF(THR-ANRHX)  165.165.45 

SORT  EIGENVALUES  AND  EIGENVECTORS 

165  IO=-N 

00  185  1*1. N 
IQsIQ+N 

LL=I +( I ■ I — J )/2 
JQ=Nu( 1-2 ) 

DO  185  JsI.N 
JQsJQ+N 

HM=J*(J»J-J)/2 
IFlAtLL J-A( MM J )  170.18S.18S 
170  X=AILL) 

aclu=a:mm) 

A( MM  1=X 

If'fMV-n  17S.18S.175 
I'M  7C  180  K=t.N 
TLR=IQ»K 
IhR=JQ>K 
XsRULR) 

Ri  ILR)sR(IMR) 

180  RIIMRJ=X 
135  CONTINUE 
RETURN 
END 


SUBROUTINE  FILUPtX .N .INPUT! 
DIMENSION  X(25I.L16) 

REMIND  10 

READ! INPUT >101 )  NHTS.NHT1 .MT2.MT3 
lOt  FORMAT!2I5.2E20-6) 

READ! INPUT #102)  (LU). 1=1.61 

102  F0RMATI6I2) 

KRITEt  INPUT.  1031  (XU), 1  =  1. N) 

103  FORMAT! 4E20-6) 

REMIND  10 
RETURN 

END 


c 
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SUBROUTINE  FINAL! XOOBL.Sl .S2.S3.S4.NS.N.IOUT.RHS.IX) 

OJHENSION  AtS.S).BI5.5).RHSl5.4).RHD!S.13.EI0N(4.5).X6TflR(5). 
1  XOOBLI53 ,S1!5) .S2( 5) .S3!5) .S4I5) 

00  S5  1=1 .5 
SS  XOOBLU)  s  O.OEO 
N6ET6  s  N6  t  1 
00  10  JI=1.NS 
J  s  JI  M 
00  10  Isl.JI 

10  A(I.J)  s  RHSCI.JIJ 
DO  11  1=1 .NSETS 

11  ou.n  =  1.E0 
00  12  J=2 .NSETS 
00  12  1=1 .J 

iz  fuj.n  =  on  »ji 

00  13  J=1 .NSETS 
JY  =  J 

IFUX  -  J)  14.13.18 

14  JY  =  JY  -  1 

10  00  2o  1=1 .J 

iY  =  I 

IF! IX  -  II  15.16.20 

15  IY  =  IY  -  1 

20  B(  IY  .JY]  =  fld.Jl 

16  CONTINUE 
13  CONTINUE 

00  25  J-t .NS 

00  21  I-l.J 

21  BIJ.n  =  BU.J) 

00  22  1=1 .NS 

22  RHDU.l)  =  RHSUX.I) 

HRITEU0UT.113) 

113  FORHflTUHO.riO. 16HTHE  COEFFICIENT'S  3 
DO  24  1=1 .NS 

HR  I TE  £  I  OUT .  1 03 )  ( BU  .  J1  ,J=1  .NS 3 

103  FORMAT! 1H0. T10, 4E20. 63 
24  CONTINUE 

WRITE! IOUT .1143 

114  FORMAT! 1H0.T10.19HTHE  RIGHT  HAND  SIDE  ) 

WRITE! IOUT.! 04 3  (RHO! 1 ,1 3 .1=1 .NS) 

104  F0RMATUH0.T10.4E20. 6) 

C 

C 

CALL  MATIL(S.NS.l.OETRM.IO.IOUT.RHO) 

C 

C 

WRITE! IOUT. 1053  IX .!RHO( I .1) ,=1 .NS) 

105  FORMArtlHO.TlO. 4HTHE  .I2.14H  SET  SOLUTIONS  //( T10.4E20.6) ) 

00  30  1=1. N 

EIONIUI)  =  Sl(I) 

EI0NC2.I )  =  S2( 1 3 
EIONO.I)  =  S3!  1 3 
30  EIGN14.I)  =  S4i 1 3 


WRITE! I OUT *200) 

200  F0RHATUH0.T10.23HTHE  PACKED  EIGENVECTOR  ) 

00  40  1*1 .NS 

40  WRITE! JOUT .201)  (ElON! I.J).J=1 .N) 

201  FORMAT! 1H0.T10. 5E20. 6) 

00  31  J=1 .NS 

31  X6TAR(U)  =  RHO! J.l )*RH6i IX.J) 

WRITE! IOUT. 106)  IXSTARII) .1=1 .NS) 

106  FORMAT! 1H0.T10.15HTHE  SOLUTION  X«  //! T10.4E20-6) i 
00  32  J=1 .N 
00  32  Ksl.NS 

32  XOOBL(J)  =  XOOBLIJ)  ♦  XSTAR! K)»EIGN!K.J) 

WRITE! IOUT. 108)  iXOOBLJ I ) .1=1 .N) 

108  FORMAT! 1H0.T10.17HTHE  SOLUTIONS  X«*  //! T10.4E20.6) ) 

RETURN 
END 


SUBROUTINE  HATILtA.Nl  .HI  .DETRH.IO.IOUT.BI 
DIMENSION  A! 5.5) .B( 5.1) .INDEX! 5.3) 

EQU I VALENCE  (IRON. JROH ) . 1 1 COLM . JCOLM ) . I AMAX . T . SHAPP ) 

OE  =  l.EO 

OZsO.EO 

M=M1 

N=N1 

OETRH=OE 
00  20  J=1.N 
20  INDEX! J.3)=0Z 
00  550  1=1 ,N 
ANAX-OZ 
DO  105  Jsl.N 

IF! INDEX! J.3J-1 )  60.105.60 
60  DO  100  K=1,N 

IF! INDEX! K.3J-1 )  60.100.715 
80  IF! AHAX-ABS! A! J .Kill  85.100.100 
85  IR0H=J 
I COLM=K 

AMqX=ABS(A! J.KJ1 
100  CuNTINUE 
105  CONTINUE 

INDEX!  ICGLM,3)=IN0EX!  I COLM. 31*1 
INDEX! I . 1 )= I ROM 
INOEX! 1 .2)=IC0LM 
IF! IRON- ICOLM )  140.310.140 
140  DETRUs-DETRH 
00  200  L=l.N 
:.;j  PP=A!  IRON  .LI 
A! IRON.L  )=A( ICOLH .L] 

200  A! ICOLM  .L )=SNAPP 
IF(H)  310.310.210 
210  00  250  L=1  .M 
SHAPP=8! IRON.L) 

B! IRON.L )=0t ICOLM.L) 

250  B( ICOLM.L )=SNAPP 
310  PIVOT=A( I C3LM » I COLM 3 
DErRM-D£TRM*PIVOT 
A! ICOLM. ICOLM  )=DE 
DO  350  L~1  .N 

350  A! ICGlH.L)=A( ICOLM.D/PIVOT 
IF! N 1  380.380.360 
360  00  370  L=1.H 
370  B( ICOLM.L)=B! ICOLM «L l/PIVOT 
380  00  550  Llsl.N 

IF! Ll-ICOLH )  400,550.400 
400  T=A(L1. ICOLM) 

A! LI , ICOLM jsOZ 
00  450  L=1.N 

450  A! Li  ,L)sAlLl  .U-AC  ICOLM. LImT 
IF!  M )  550.550.460 
460  00  500  L=l,M 

500  BC LI .LlsSlLl ,L)-Bl ICOLM.L )»T 
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S50  CONTINUE 
00  710  Ial.N 
LsN*l-l 

IF( INDEX! L.11-IN0EXU. 21)  630.710.630 
630  JR0H=IN0£X(L«1 1 
JCOLM= 1 NOEX ( L .2 1 
00  705  Ksl.N 
SWAPP=fl( K .  JROW ) 
fit  K .  JROW }=fl( K ,  JCOi.fi ) 
fl(  K .  JCOLH )=SWfiPP 
705  CONTINUE 
710  CONTINUE 

IF ( InOExFk !3 1-1 1  715.720.715 
715  10=2 

GO  TO  740 
720  CONTINUE 
730  CONT'NUE 
10=1 

740  CONTINUE 

NRITEU0UT.101) 

101  FORnflTUHO.TlO, 14NTHE  INVERSE  IS  /) 

00  10  1=1  .N 

10  WRITE! I OUT .1021  fflf I.J).J=1.N) 

102  FORMAT! lH0.T10r5E20.61 
WRITE' IOUT .1111  OETRtt 

111  FORMAT! 1H0.T10.17HTHE  DETERMINANT  a  .  E2U.6) 
RETURN 
ENO 


APPENDIX  C 

COMPUTER  PROGRAM  FOR  FLETCHER  AND  POWELL  METHOD 
FOR  MINIMIZATION  OF  A  GIVEN  FUNCTION 
"F  P  M" 
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external  funct 

DIMENSION  HI 400) .X(2S) ,G(25) 

COMMON  IFLAG.RR! 5.5.25) .NRST ( 5 ) .NSET 
COMMON  SIS) 

DATA  NRST.Nl.N2.N3.N4.N5/10n0/ 

DATA  INPUT. I OUT/ 10. 6/ 

REWIND  10 
C 

CALL  IOIN.LIMIT.EST , EPS, X. INPUT . I OUT i 
C 
C 

CALL  FMFPI FUNCT ,N .X ,F .G.EST .EPS .LIMIT . IER .H .KOUNT ) 

C 

WRITE! TOUT .113)  (XII).  1  =  1. N) 

113  FORMAT! 1H0//.TI0.37HFLETCHER  POWELL  RESULTED  VECTOR  VALUE  ///(T10. 
15C20.6)) 

.'RITE!  IOUT  ,114)  (Oil).  I=1.N) 

114  FORMAT! 1H0/.T10.12HTHE  GRADIENT  //( T10.SE20.6) i 
WRITE! IOUT. 115)  F 

115  FORMAT! 1H0/.T10.18HTHE  FUNCTION  VALUE  .E20.6) 

FI  =  EXPIF) 

WRITE! IOUT. 205)  FI 

205  FORMAT! 1H0.T20 . 19HTHE  EXP(LOO(OET) )  =  .E20-6) 

IER  =  IER  ♦  2 
GO  TO  (1.2.3. 4). IER 

1  IER  =  IER  -  2 
WRITE! IOUT .116)  IER 

116  F0RMAT(1H0.T10.  5HIER  =  .IS.31H  ERROR  IN  GRAOIENT  CALCULATION  ) 

GO  TO  99 

2  IER  s  IER  -  2 
WRITE! IOUT. 117)  IER 

117  FORMAT! 1H0.T10.  5I1IER  =  .I5.20H  CONVERGENCE  WAS  OBTAINED.  ) 

GO  TO  99 

3  IER  =  IER  -  2 
WRITE! IOUT. 118)  IER 

110  FORMATdHO.TlO.  5HIER  =  .I5.37H  NO  CONVERGENCE  IN  LIMIT  ITERATIO 
IN  ) 

GO  TO  99 

4  IER  =  IER  -  2 
WRITE! IOUT, 119)  IER 

119  FORMATdHO.TlO.  5HIER  s  .I5.26H  NO  MINIMUM  VALUE  EXIST.  ) 

99  CONTINUE 
NR  =  0 
NPJ  =  1 

DO  132  1=1 .NSET 
NR  =  NR  ♦  NRST! I ) 

DO  133  J=NPJ.NR 
133  X(<j)  =  X!  J)/S(  I ) 

NPJ  =  NR  ♦  1 
132  CONTINUE 
NA  =  N 

WRITE! IOUT ,123 )  tX(I).I=l.NA) 

123  FORHATdHO. T10. 34HTHE  NORMALIZED  WHOLE  WEIGHT-VECTOR  //! T10.LE20. 
16)) 
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WRITE! IOUT. 201)  KOUNT 

201  FORMAT! 1HO///T10.41HTHE  TOTPL  NUMBER  OF  ITERATIONS  REQUIRED  =  .18) 
REMINO  10 

WRITE! INPUT. 101)  N.LIHIT.EST.EPS 
101  F0RMAT12I5.2E20.6) 

WRITE! INPUT. 106)  NSET  .NRST!I)  .1=1 .5) 

106  FORMAT! 612) 

WRITE! INPUT.804)  (XU). 1=1. N) 

804  FORMAT! 4E20. 6) 

REWIND  10 

STOP 

END 

SUBROUTINE  IO!N. LIMIT. EST. EPS .X. INPUT. IOUT) 

DIMENSION  X(25 ).DR(5.5) .IETZ! 6 )  .R! 15.5.5) 

COMMON  IFLAG.RR! C .5 .25 ) .NRST! 5 ) .NSET 
READ! INPUT. 101)  N.LIMIT.EST.EPS 

101  FORMAT! 215. 2E20. 6 ) 

READ! INPUT. 103)  NSET.tNRST! I ) .1=1 .5) 

103  FORMAT! 612) 

KSET  =  3 

IFINSET  -  2)  2.1.2 

2  KSET  =  6 

IFINSET  -  3)  3.1.3 

3  KSET  =  10 

IFtNSET  -  4)  4.1.4 

4  KSET  =  IS 

1  CONTINUE 

IETZ! 1 )  =  NSET 

DO  6  1=2.6 
J  =  I  -  1 

6  IETZ  J)  =  NRST! I ) 

READ! INPUT, 102)  (X(I),I=1.N) 

102  FORMAT! 4E20. 6) 

DO  3311  1=1 .NSET 
JA  =  NRST! I) 

3311  READ! INPUT .801 )  (NT! I .J).J=1 .JA) 

801  FORMAT  <518) 

READ! INPUT .801 )  NTAL 
DO  3312  JA=1.NS£T 

3312  REAO! INPUT. 802)  NO .KK .! ! OR! I .J) ,J=1 ,ND) .1=1 .MK) 

802  F0RMAT!2I2.(5E20.6) ) 

WRITE! IOUT ,110) 

110  FORMAT! 1H1.T2S.57HFLETCHER  AND  POWELL  METHOD  OF  MINIMIZATION  OF  A 
1FUNCTI0N.  ) 

WRITE! IOUT. 1 11 )  N .LIMIT 

111  FORMAT! ///.T20.23HNUMBER  OF  VARIBLESi  N  =  .I2.35H  MAXIMUM  OF 
l ITERATION!  LIMIT  =  .14) 

WRITE! IOUT .112)  EPS. EST 

112  FORMAT! /// .T20 .24HPERHISSI0LE  ERROR i  EPS  =  .E20.6  .//T20, 46HESTIMAT 
1ED  MINIMUM  VALUE  OF  THE  FUNCTION*  EST  =  .E20.6) 

WRITE! IOUT. 137) 

137  FORMAT! 1H0.T20.29HTHE  ESTIMATED  INITIAL  WEIGHTS  ) 

DO  136  1=1. N 

136  WRITE! IOUT. 135)  I.XII) 
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135  FORMAT! 1H0.T25.2HX! .12. 4H)  =.E20.6) 

WRITE! I OUT <2241 

224  FORMAT! 1H0.T35.16HTHE  INPUT  MATRIX  1 
WRITE! I OUT .250) 

250  FORMAT! 1H0//T10.3HITH.2X.3HJTH.ZX .3HR0W/T1O.3HSET «2X .3HSET .2X.3HN0 
1..7X.PHELEMENTS  ) 

K  s  1 

00  10  J=1.N$ET 
J&FT  =  NRSTIJ) 

00  10  1=1 .J 
I SET  =  NRSTtl) 

READ! INPUT .1451  ! ! R( K . IX . JX 1 . JX=1 . JSET ) . I X= 1 .16ET) 

145  FORMAT! 4E20 >6) 

00  IS  IXXsl.ISET 
00  16  JXX=1.JSET 
16  0R1IXX.JXX)  s  RCK.IXX.JXX) 

CALL  CONECtK.IETZ.OR.IOUT) 

K  a  K  ♦  1 

IF(K  -  KSET)  10.10.11 

10  CONTINUE 

11  CONTINUE 
RETURN 
ENO 


SUBROUTINE  CONECCK.IETZ.DR.IOUT) 

OIHENSION  IETZ! 6) .0RI5.5) 

COMMON  IFLPG.RRtS.5.25) 

L  =  K 
NCOL  a  1 
NV  a  IETZI1) 

00  1  Js2.NV 
IF t L  -  1)  3.  3.  33 
33  CONTINUE 
L  a  L  -  J 
NCOL  a  NC0L  ♦  1 
1  CONTINUE 

3  NRO  a  K  -  (NCOlbINCOL  -  1)1/2 

NCOS  a  IETZ! NRO  +  1) 

00  S  KZal.NCOS 
NENT  a  IETZ! NCOL  ♦  1) 

00  128  JZal.NENT 

IKJ  a  IJZ  -  IJaNCOS  ♦  KZ 

RR( NRO. NCOL .  IKJ1  a  ORtKZ.JZ) 

JKI  a  !KZ  -  DaNENT  ♦  JZ 
128  RR(NCOL.NRO.JKI)  a  OR(KZ.JZ) 

NRITEt I OUT .250 )  NRO .NCOL. KZ . 1 0R( KZ . JK )  .JK=1 .NENT ) 
250  FORMAT! 1H0.T10.I2 .3X  .I2.3X.I2.3X  .4E20.6) 

S  CONTINUE 
RETURN 
END 


FUNCTION  AHAX1CX.Y.Z) 
AttAXl  a  X 

IF! AHflXl  -  Y)  11.12.12 

11  AMflXl  a  Y 

12  IF! AMAX1  -  Z)  13.14.14 

13  AMAX1  a  l 
14  RETURN 

END 


UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU  UUUUOUUUUUUUUUOUUUUU 
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SUBROUTINE  fllNV 
PURPOSE 

INVERT  A  MATRIX 
USAGE 

CALL  MINVIfi.N ,D.L.H) 

DESCRIPTION  OP  PARAMETERS 

A  -  INPUT  MATRIX.  DESTROYED  IN  COMPUTATION  ANO  REPLACED  BY 
RESULTANT  INVERSE. 

N  -  ORDER  OF  MATRIX  A 
D  -  RESULTANT  DETERMINANT 
L  -  WORK  VECTOR  OP  LENGTH  N 
M  -  WORK  VECTOR  OF  LENGTH  N 

REMARKS 

HATRIX  A  MUST  BE  A  GENERAL  MATRIX 

SUBROUTINES  ANO  FUNCTION  SUBPROGRAMS  REQUIRED 
NONE 

METHOD 

THE  STANDARD  GAUSS-JOROAN  METHOD  IS  USED.  THE  DETERMINANT 
IS  ALSO  CALCULATED.  A  DETERMINANT  OF  ZERO  INDICATES  THAT 
THE  MATRIX  IS  SINGULAR. 


SUBROUTINE  MINVIA.N.O.L.M) 
DIMENSION  A(l).L(l).Mm 


IF  A  DOUBLE  PRECISION  VERSION  OF  THIS  ROUTINE  IS  DESIRED.  THE 
C  IN  COLUMN  1  SHOULD  BE  REMOVED  FROM  THE  DOUBLE  PRECISION 
STATEMENT  WHICH  FOLLONG. 

DOUBLE  PRECISION  A.D.BIOA.HOLO 

THE  C  MUST  ALSO  BE  REMOVED  FROM  DOUBLE  PRECISION  STATEMENTS 
APPEARING  IN  OTHER  ROUTINES  USED  IN  CONJUNCTION  WITH  THIS 
ROUTINE. 

THE  DOUBLE  PRECISION  VERSION  OF  THIS  SUBROUTINE  MUST  AL60 
CONTAIN  DOUBLE  PRECISION  FORTRAN  FUNCTIONS.  ABS  IN  6TATEHENT 
JO  MUST  BE  CHANGED  TO  DABS. 


a 


SEARCH  FOR  LARGEST  ELEMENT 


c 
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0=1-0 

NKs-N 

00  80  Ksl ,N 

HK=NK*H 

UKlsK 

MKJsK 

KK=NK*K 

BIGfl=ACKKl 

00  20  J=K,N 

IZ=N»(d-i) 

00  20  I=K  ,N 
IJ=1H*I 

10  IFt  ABStaiOfll-  ABSIA(IJ)))  15,20.20 
IS  BIGflsAIlJ) 

L(K)=I 
M(K)=J 
20  CONTINUE 
C 

C  INTERCHANGE  ROMS 

C 

J=UK) 

IF(J-K)  3S.3S.2S 

25  KlsK-N 

DO  30  1=1. N 
K1=KI+N 
H0L0=-ACKn 
Jl=Ki-K+J 
flCKI  )=fU  JI ) 

30  =HOLD 

C 

C  INTERCHANGE  COLUMNS 

C 

35  I=M(K) 

IF(I-K)  45.45.38 
38  JP=N*a-l) 

DO  40  J=1,N 
JK=NK*J 
JI=JP+J 
HOLO=-ACJK) 

AIJKlsfllJI) 

40  AC JI  1  =H010 
C 

C  DIVIDE  COLUMN  BY  MINUS  PIVOT  (VALUE  OF  PIVOT  ELEMENT  IS 

C  CONTAINED  IN  BIOA) 

C 

45  IF(BIOfl)  48.46,48 

46  0=0.0 
RETURN 

48  00  SS  1  =  1. N 

IF(I-K)  SO. 55, 50 
SO  IKsNK+I 

HUK)=A(IK)/(-BIf>A) 

55  CONTINUE 


o  o  r>  non  r>no  onn 
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c 

C  REDUCE  MATRIX 

C 

00  65  1=1, N 
IKsNK+I 
MOLOaflUK) 

I J=l-N 
00  65  4=1 ,N 
IJ=I J*N 

IFU-K1  60.65.60 
60  IF(J-K)  62,65.62 
62  KJ=I J-I +K 

fll  IJ  )=H0L0aA(KJ  )*A(  141 
65  CONTINUE 

DIVIDE  RON  BY  PIVOT 

KJ=K-N 
DO  75  J=1.N 
K4=K4*N 

IF(J-K)  70.7S.70 
70  fUKJ)=A(KJ)/BIOfl 
75  CONTINUE 

PRODUCT  OF  PIVOTS 

D=D»8I GA 

REPLACE  PIVOT  BY  RECIPROCAL 

AfKK)=l .O/BIOA 
80  CONTINUE 

FINAL  ROM  AND  COLUMN  INTERCHANGE 

to. 

IF(K )  ISO. 150. 105 
105  I=L(K) 

IHI-K)  120.120.108 
108  JQrNalK-l) 

JR=N*( 1-1 ) 

DO  110  4=1 «N 
JK=JQi-4 
H0LD=A(4K1 
JiaJRtJ 
AI 4K )=-A( JI ) 

110  A(JI)  =HOLO 
120  J-.MK) 

IFIJ-KJ  100.100.125 
125  KI=K-N 

00  130  1=1.  N 
KI=KI*N 
HOLO=AlKI ) 


r>or>or>or>ocir>ooooor>or>ooor>r>onr>r>r>oor>r>r>ooor>ooor»or>oo 
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C  THE  -SUBROUTINE  FNFP 

SUBROUTINE  FMFPI FUNCT .N .X .F .G.EST .EPS ,Li«IT . IER.H .KOUNT ) 

dimension  Hm.xm.om 

COMMON  IFLAG 

FUNCT-USER  NR I  TEN  SUBROUTINE  CONCERNING  THE  rUKCTIO'i  TO  BE 
MINIMIZING  IT  MUST  BE  OF  THE  FORM 

SUBROUTINE  FUNCTIN .ARG.VAL.GRAD1 
ANO  MUST  SERVE  THE  FOLLOWING  PURPOSE. 

FOR  EACH  N-OIMENSIONAL  ARGUMENT  VECTOR  ARG. 

FUNCTION  VALUE  AMO  GRADIENT  VECTOR  MUST  BE  COH^t  EC  AND, ON 
RETURN.  STOPE  IN  VAL  AND  GRAD  RESPECTIVELY. 

N  -NUMBER  OF  VARIABLES. 

X  -VECTOR  OF  DIMENSION  N  CONTAINING  THE  INITIAL  ARGUMENT .  WHERE 
THE  INTERATION  STARTS.  ON  RETURN  X  HOLDS  THE  ARGUMENT 
CORRESPONDING  TO  THE  COMPUTED  MINIMUM  FUNCTION  VALUE. 

G  -VECTOR  OF  DIMENSION  N  CONTAINING  THE  GRADIENT  VECTOR 
CORRESPONDING  TO  THE  MINIMU  ON  RETURN  I.E.  G  s  G (X). 

EST  -IS  AN  ESTIMATE  OF  THE  MINIMUM  FUNCTION  VALUE. 

ESP  -TEST  VALUE  REPRESENTING  THE  EXPECTED  ABSLUTE  ERROR.  A 

REASONABLE  CHOICE  IS  10*«(-6).  I.E.  SOME  WHAT  GREATER  THAN 
10*«(-D)  WHERE  0  IS  THE  NUH8ER  OF  SIGNIFICANT  DIGITS  IN 
FLOATING  POINT  REPRESENTATION. 

LIMIT-HAX  rMUM  NUMBER  OF  ITERATION. 

IER  -ERROR  PARAMETERS. 

IER  s  0.  CONVERGENCE  WAS  OBTAINED. 

IER  =  l.  NO  CONVERGENCE  IN  LIMIT  ITERATION. 

IER  =  -1.  ERROR  IN  GRAOIENT  CALCULATION. 

IER  =  2. LINEAR  SEARCH  TECHNIQUE  INDICATE  IT  IS  A  LIKELY  THAT 
THERE  EXISTS  NO  hlNUMUH . 

H  -WORKING  STORAGE  OF  DIMENSION  N»lN  ♦  7)/Z. 

REMARKS i 

1.  THE  SUBROUTINE  NAME  REPLACING  THE  DUMMY  ARGUMENT  FUNCT.  iiC'ST  BE 
DECLAREO  PS  ESTERNAL  IN  THE  CALLING  PROGRAM. 

2.  IER  IS  SET  TO  2  IF  STEPPING  IN  ONE  OF  1HE  COMPUTED  DIRECTIONS. 
THE  FUNCTION  WILL  NEVER  INCREASE  WITHIN  A  TOLERABLE  RANGE  OF 
ARGUMENTS. 

IER=2 .  MAY  OCCUR  ALSO  IF  THE  INTERVAL  WHERE  F  INCREASES  IS  6MAL 
ANO  THE  INITIAL  ARGUMENT  WAS  RELATIVELY  FAR  AWAY  FROM  THE  MINIM 
SUCH  THAT  THE  MINIMUM  HAS  OVERLEAPED-  THIS  IS  DUE  TO  THE 
SEARCH  RECHNIGUE  WHICH  DOUBLE  THE  STEPSIZE  UNTIL  A  POINT  IS  FOU 
WHERE  THE  FUNCTION  INCREASES. 

METHQOj  THE  METHOD  IS  OISCRJBED  IN  THE  FOLLOWING  ARTICLE. 

R.FLFTCHER  ANO  M.J.D. POWELL  "A  REPIO  DESCENT  METHOD  FOR 
MINIMIZATION. 

COMPUTER  JOURNAL  VOLUME  6,  ISS.II.19S3.  PP.  163-168 
IFLAG  =  1 

CALL  FUNCTIN. X.F.G) 

IFLAG  =  0 
IER  a  0 
KOUNT  =  0 
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N2  a  N  ♦  N 
N3  *  N2  ♦  N 
N3I  a  H3  ♦  1 

1  K  =  N31 

00  4  J=1.N 
HIK)  s  1. 

HJ  e  N  -  J 
IFtNJ)  5.5.2 

2  00  3  Lal.NJ 
KL  =  K  ♦  I. 

3  Ht KL)  =  0. 

4  K  e  KL  ♦  1 

5  K0UNT  =  KOUNT  ♦  1 
OLOF  a  F 

00  9  Jsl.N 
K  a  N  ♦  J 
HIK)  a  0(J) 

K  a  K  ♦  N 
HtK)  =  X(J) 

K  a  J  ♦  N3 
T  =  0. 

00  9  L  al.N 
T  a  T  -  0(U«H(K) 

IF(L-J)  6.7.7 

6  K  =  K  ♦  N  -  l 
GO  TO  0 

7  K  a  K  ♦  1 

0  CONTINUE 

9  H(J)  a  T 
OY  a  0. 

HNFM  =  0. 

GNF.M  a  0. 

00  10  Jsl.N 

HNItH  =  HNR?1  ♦  A0SIHU)) 

GNRH  a  GNRM  *  PBbiGU)) 

10  OY  a  OY  *  HU)«OU) 

IF(OY)  11.51.51 

11  IFIHNRH/ONRH  -  EPS)  51.51.12 

12  FY  a  F 

ALFA  a  2.00*tEST  -  FJ/OY 
PHBDA  a  1. 

IF( ALFA)  15.15.13 

13  IF (ALFA  -  PhBOA)  14.15.15 

14  AHBOA  a  ALFA 

15  ALFA  a  0. 

18  FX  a  FY 

OX  a  OY 

00  17  lal.N 

17  XU)  a  XII)  ♦  AMBOAaHU) 

COLL  FUNCTIN.X.F.G) 

FY  a  F 

OY  a  0. 

00  18  lal.N 

18  OY  a  DY  +  01I)«HU ) 


IF(OY)  19*36*22 

19  IF(FY  -  FX)  20.22,22 

20  ANBDA  =  AHBOA  t  ALFA 

ALFA  a  AfIBOA 

IF(HNRf1»  AfIBOA  -  I.ElOi  16.16.21 

21  IER  *  2 
RETURN 

22  T  a  0. 

23  IF(AHBDA)  24.36.24 

24  Ha  3.00«(FX  -  FYJ/AHBOA  t  OX  ♦  DY 
ALFA  a  AHAXH  ABS(Z).  ABS(OX).  ABS(OYl) 
OALFA  a  Z/ALFA 

DALFA  a  OALFAaDALFA  -  DX/ALFA*DY/ALFA 
IF  (OALFA)  51 .2*2.25 

25  Ha  ALFA*  SORT (OALFA) 

ALFA  a  OY  -  OX  ♦  H  ♦  H 
IF(ALFA)  250.251.250 

250  ALFA  a  (OY  -  H  ♦  Hl/ALFA 
00  TO  252 

251  ALFA  =  (Z  ♦  OY  -  H)/(Z  ♦  OX  ♦  H  ♦  DY) 

252  ALFA  a  ALFA«AHBDA 
DO  26  Ial.N 

26  XU)  a  XII)  ♦  (T  -ALFA)*:1U) 

IFLAO  a  1 

CALL  FUNCT(N.X.F.G) 

IFLAO  a  0 

IF(F  -  FX)  27.27.28 

27  IF(F  -  FYj  36,36.28 

28  DALFA  a  0. 

DO  29  Ial.N 

29  DALFA  a  DALFA  t  DU)»HU) 

IF(OALFA)  30,33.33 

30  IF(F  -  FX J  32.31.33 

31  inDX  -  DALFA)  32,36.32 

32  FX  a  ? 

OX  a  DALFA 
T  a  ALFA 
AfIBOA  =  al:*a 
00  TO  23 

33  IFIFY  -  F)  35.34.35 

34  IF(OY  -  OALFA)  35.36.35 

35  FY  a  F 

DY  s  DALFA 

AMBOA  a  AflBOA  -  ALFA 
GO  TO  22 

36  DO  37  dal.N 
K  a  N  ♦  J 

H(K)  a  0(J)  -  HI  K) 

K  a  II  t  K 

37  H(K)  a  X(J)  -H(K) 

IFIOLOF  -Ft  EPS)  51.38,38 

38  IER  a  0 
IFtKOHJNT  -  N)  42.39.39 
T  a  0. 


38 
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Z  =  0. 

DO  40  J=1.N 
K  e  N  ♦  J 
M  s  HIKJ 
K  s  K  ♦  N 
T  =  T  ♦  ABSIH(K) ) 

40  Z  s  Z  ♦  HbH(K) 

IFIHNRH  -  EPS)  41.41.4Z 

41  IFI T  -  EPS)  S6.S6.4Z 

4Z  IFtKOUNT  -  LIMIT )  43.50.S0 

43  ALFA  s  0. 

DO  47  Jsl.N 
K  a  J  ♦  N3 
H:0. 

DO  46  L=1.N 

KL  =  N  ♦  L 

H  s  H  ♦  H(KL)*H(K) 

IFIL  -  J)  44.45.45 

44  K  =  K  +  N  -  L 
00  TO  46 

45  K  :  K  t  1 

46  CONTINUE 
K  =  N  ♦  J 
ALFA  =  ALFA  ♦ 

47  h(J)  s  M 
IF1Z*ALFA)  48.1.46 

48  K  =  N31 

DO  49  Lsl.N 
KL  =  N2  ♦  L 
DO  49  J=L.N 
NJ  =  N2  +  u 

H(K)  s  Ht K J  *  HIKL)mH(HJ)/Z  -  H(U«H( Jl/ALFA 

49  K  s  K  *  1 
CO  TO  5 

50  IER  =  1 
RETURN 

51  DO  S2  Jsl.N 
K  =  N2  ♦  J 

52  X(J)  s  HIKJ 
IFLAC  s  1 

CDLL  FUNCT(N.X.F.G) 

.FLAG  s  C 

IFIONRM  -  t°S)  55.55.53 

53  IF(IER)  56,54.54 

54  IER  =  -1 
CO  TO  1 

55  IER  =0 

56  RETURN 
END 
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C 

C  SUBROUTINE  FUNCTIN.X.Y.G) 

SUBROUTINE  PUNCH N. XX .Y.G) 

DIMENSION  XX!inGIl).RH0l5.5UAl2S).LLXIS).NHXlSnXl5) 
COMMON  I FLfi&.RR ( 5 .5 .25 )  «NRST l 5 1  .NSET 
COMMON  SI 5) 

HP  =  0 
KM  a  0 

00  1  I  =  UNSET 
SID  s  0. 

Nfl  m  NRSTII) 

DO  2  J  s  UNA 
JM  ■  J  ♦  KM 

2  sin  a  sin  ♦  xxijm)u2 
sin  =  soRTisiin 

1  KH  a  KM  t  Nfl 

NR  s  0 

00  1101  lal.NSET 
1101  NR  a  NR  ♦  NRSTII) 

IF  IIFLAG.EQ.I) 
lHRITEIS.Bl)  (XXI J2) *JZ=1 .NR) 

IF!  IFlflG-EQ  •  1 )  WRITE!  6 .81 )  I  SI  JZ )  .JZal.NSET ) 

81  FORMflTUHO.TlO.  4HXX  =  .SE20.6) 

IM  a  0 

DO  U  I  s  UNSET 

JM  a  IM 

Nfl  =  NRSTII) 

00  12  Js I .NSET 
NB  =  NRSTU) 

RHO(I.J)  a  O.EO 
DO  13  K  a  1 .Nfl 
Kfl  a  K  ♦  IM 
DO  13  l  a  1.  NB 
KB  a  L  -r  JM 
KLX  =  ll-l  )«Nfl  ♦  K 

13  RHOIUJ)  a  RHOIUJ)  *  XXIKflURR'  I  .J  ,KlX)»XY ;  KB)/6(n/S(  J) 
IF  I  IFLAG.EQ .1 ) 

1WRITEI6.82)  I.J. RHOII.J) 

82  FORMflTUHO.TlO,  4HRH0!  .12. 2H,  ,i?,3H)a  ,E15.6) 

12  JM  a  JM  ♦  NB 

11  IM  a  IM  *  Nfl 

00  21  I  a  UNSET 

00  21  J  a  UNSET 

21  RHOIJ.I)  a  RHOIUJ) 

00  22  I  a  UNSET 

DO  22  Jal.NSET 
IJX  a  ( J-i  UNSET  ♦  I 

22  flIIJX)  a  RHOII.J) 

NN  a  NSET*NSET 

IF  (IFlflO.EQ.l) 

1  WRITE! 6,83 1  Ifl(KX).KXrl.NN) 

83  FORMflTUHO.TlO. lOHfl  PACKED  a,5E15.6/I T20.4E15.6) ) 

CALL  MINVIfl.NSET.DET.ua. MMX) 

IF  (IFLflO.EQ.l) 


1HRITEC6.B3J  (fUKX )  .KXal  #NN) 

Y  a  ALOOl OET ) 

IF  UFLAG-EQ.l) 

1WRITE(6»88)  Y 

88  FORMAT! 1HO.T10 .24HTNE  EVALUATED  FUNCTION  a  .E20.6) 
ft  a  EXP(Y) 

IFUFLAO.EQ.i) 

1WRITE16.89)  Y1 

89  FORMAT! 1H0.T10.19HTHE  EXP!LOO!DET) )  =.EZ0.6) 

IN  a  0 

II  =  0 

00  30  I  a  1 rNSET 
NA  a  NRST(I) 

KU  a  NA  ♦  IN 
NAN  a  NA 
DO  31  K  a  1 .NAN 
KQ  a  K  +  IL 
CIKQ)  a  O.EO 
KR  a  K  ♦  IN 
JH  a  0 

DO  32  J  a  l.NSET 
N8  =  NRST(J) 

38  IXJ  a  (J-I)hNSET  ♦  I 
XtJ)  a  0-00 
DO  34  KK  a  l.NB 
KKN  a  KK  ♦  JH 
KXKK  ss  (KK-1  }«Nfl  ♦  K 

XU )  a  XU)  ♦  A(IXJ)»RRUU.KXKK)*XX!KKN)/SU) 

34  CONTINUE 

01KQ)  a  01 KQ J  ♦  XU) 

32  JM  a  JM  ♦  N8 

OIKQ)  a  G( KQ )  -  XX(KQ)/6(P 
C( KQ )  a  2-00«OtKQ)/Sm 
31  CONTINUE 
IN  a  IN  t  NA 
30  IL  s  IL  ♦  NA 

IF! IFLAO.EQ.l)  NRITEt 6.118)  C Ot J ).Isl .N) 

118  FORMAT! 1H0.19X.15HTHE  GRADIENT  IS  /(15X .SE20.6) ) 
RETURN 
END 
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COMPUTER  PROGRAM  FOR  CANONICAL-PARTIAL 
AND  CANONICAL-MULTIPLE  CORRELATION  MATRIX 
"CPCM" 
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BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB3BBBBBBBBBBBBBB 

Cb 

Cm  THIS  IS  THE  MAIN  CALLING  PROGRAM. 

Cb 

Cbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 

c 

DIMENSION  RST1 1 ( 10.10) .RST12I 10.20) .RST22I 20.20 ) .RESUTl 10.10) 
DIMENSION  TX(1G.10).TY110*10).R(30).EIGN(30) .ATINVI20.20) 

1  .NT(S.5).NRST(5) 

COMMON  N1 .N2.N3.N4.N5.DZ.0E.I0UT .ML.NSETS 
COMMON  XI 25 5 

COMMON  R11(5.S).R12(5.5).R13I5.5).R14{5.5).R1S(5.5) .R2U5.5)  .R22I5 

1 .5)  .R23I5.5 ) .R24I5.5 ) .R25I5.5] .R31I5.5 ) .R32I5.5) .R33I5.5) .R34I5.5) 
2.R35IS.5) 

COMMON  .141(5.51  .R42I 5.5) .R43I5.5)  .R44I5.5) .R45I5.5) .R51I 5.5) .R52I5 

1 .5)  .R53I5.5) .R54I5.5 )  .K55I5.5) .PRHQI5.5) 

REMIND  10 

INPUT  =  10 
IOUT  =  6 

dz  s  o.eo 

DE  =  1.E0 

READI INPUT. 3011  ML. LIMIT. EST .EPS 
301  P0RMAT12IS.2E20.6) 

READ! INPUT .1001  NSETS . INRST11 1 . 1  =  1 .5 1 
100  FORMAT! 612) 

N1  =  NRST(l) 

N2  =  NRST12) 

N3  =  NRSTI3) 

N4  =  NRSTI 4 ) 

N5  =  NRSTI5) 

REAOI INPUT . 101 1  1X111.1=1. ML) 

DO  811  J=l. NSETS 
NA  =  NRSTI J) 

REAOI INPUT .802 1  INTI J.I).I=1 .NA) 

802  F0RMATISI8) 

811  CONTINUE 

REAOI INPUT .802 1  NTAL 
DO  812  JA=1. NSETS 

812  REAOI INPUT.813)  ND.MK. 1 1 ATINVI I ,J  1  ,J=1 .HO) .1=1 .MK) 

813  F0RMATI2I2.I5E20.6) ) 

IF ( NSETS— 1 1  2933.2999.2998 

2998  IFINSETS-6 1  2997.2999.2939 

2999  WRITE! IOUT. 2996) 

2996  FORMAT! 1H1 .T10.81HTHE  NUMBER  OF  SETS  OF  VARIABLES  IS  WRONG,  CHECK 
1  IT .  AND  REENTER  THE  WHOLE  PROGRAM  ) 

PAUSE  1110 
GO  TO  99 

2997  CONTINUE 
WRITE! IOUT. 10S) 

105  FORMAT! 1H1.T2S.46HTHE  CANONICAL-PARTIAL  AND  MULTIPLE  CORRELATION  / 
1//T35 , 14HTHE  INPUT  DATA/////  ) 

WRITE! IOUT. 608)  NSETS. N1.N2.N3.N4.N5 


609  F0RHAT(1H0,T10.28HTHE  NUMBER  OF  SETS  (NSETS)  =  .I6//T10.37HTHE  NUI1 
1BER  OF  ROMS  OF  11.1)  SET  Nl  =  .I6//T10.37HTHE  NUMBER  OF  ROMS  OF  C 
22.2)  SET  N2  =  .I6//TIC.37HTHE  NUMBER  OF  RONS  OF  13.3)  SET  N3  a  . 
3I6//T10.37HTHE  NUMBER  OF  RONS  OF  (4.4)  SET  N4  a  .I6//T10.37HTHE  N 
4UHBER  OF  RONS  OF  (5.5)  SET  N5  =  .16) 

NRITEI I0UT.4202)  ML 

4202  FORMAT! 1H0/T10.24HTHE  NUMBER  OF  NEIOHTS  =  .I6//T10.14HTHE  R  -  MAT 
IRIX  ) 

REAOI INPUT. 101 )  1(R11( I .J),J=1 .Nll.I-1 .Nl ) 

REAO( INPUT. 101 )  ( (R12( I . J ) . J=1 ,N2).I  =  1  ,N1 ) 

REAOI  INPUT.  101 )  ( (R22(  I  .J1.J--1  ,N2).I=1  .N2) 

NRITE( I0UT.1O6 )  ( (Rll( I .J) ,J=1 .Nil .1*1  ,N1 ) 

WRITE! I0UT.108)  ( ( R12( I , J) . J=1 ,N2 ) . 1=1 .Nl ) 

NRITE( IOUT.  106 )  ( (R22( I .J) .J=l ,N2) .1=1 ,N2) 

I F ( NSETS— 2 )  3001.3001.3002 
3002  CONTINUE 

REAOC INPUT. 101)  ( (R13( I .J) >J=1 .N3 1.1=1  .Nl ) 

REAOI INPUT. 101 1  ( (R23( I.J) ,J=1 .N3).I=1 ,N2) 

READ( INPUT.  101 )  I (R33I I ,J).J=1 ,N3) .1  =  1 .N3) 

HRITEf IOUT. 106 3  ( ( R13(  I .  J )  ,J=1  .N3 ) .  1=1  .Nl) 

HR I TE( I OUT.  106 3  ( (R23( I.J) .J=l .N3).I  =  1 .N2) 

HRITEf I0UT.106)  ( (R33( I ,J).J=1 ,N3 1.1=1 .N3) 

IFf  N6ETS-3 1  3003.3001.3003 
3C03  CONTINUE 

READf INPUT .101 )  ( ( R14f I .J ) . J=1 ,N4 ) . 1=1 .Nl ) 

READ* INPUT. 101 )  ( fR24( I.J) ,J=1 ,N4).I=1 ,N2) 

REAOI INPUT. 101 1  ( ( R34  £ I.J).J=1 ,N4 1.1  =  1 .N3) 

REAOI INPUT. 1011  ((R44£I.J).J=1.N4).I=1,N4) 

HRITEf IOUT. 106)  ( ( R14( I . J ) , J=1 ,N4 ) . 1=1 .Nl ) 

WRITE! IOUT .106 1  ( f R24( I .J) .J=l .N4 ) .1  =  1 .N2) 

WRITE. IOUT. 106 3  f CR34f I ,J) ,J=1 ,N4 i . 1=1 ,N3) 

HRITEf IOUT. 106)  ( (R44( I.J) .J=l  .N4  1.1  =  1  .Nl) 

IFtNSETS-4)  3004.3001.3004 
3004  CONTINUE 

REAOf INPUT .101 )  ( I RISf I .J).J=1 .NS ) . 1  =  1 .Nl ) 

READf  INPUT.  101 )  UR25f  I . J ) , J=1  ,N3 1.1  =  1  .N2) 

REAOI INPUT. 101)  1 1 R35I I.J) . J=1 ,N5) .1  =  1 .N3) 

READf INPUT.  101 )  f  f R45f I ,J) ,J=1  ,N5) .1  =  1  ,N4) 

REAOf INPUT .101 )  ((RS5(I.J),J=1.N5).I=1,N5) 

HRITEf IOUT. 106  3  ( fR15( I ,J) ,J=1 ,N5) .1=1 .Nl ) 

HRITEf It JT.  106  3  ( f R2S( I . J ) . J=1 .N5 3 .1=1 ,N2) 

HRITEf IOUT. 106 3  ( (R35( I .J) ,J=1 .NS). 1=1 ,N3) 

HRITEf IOUT.  106  3  ( ( R 45 ( I  .J)  ,J=1  .NS 3. 1=1 ,N4) 

HRITEf I  OUT.  106  3  ( (RS5i I .J) ,J=1 .NS) .1=1 ,HS) 

3001  CONTINUE 
101  F0RMAT(4E20.6) 

106  FORMAT! 1H0 .//( T10.5E2C -6)1 
HRITEf IOUT ,  134  3 

134  FORHATf 1H0.T1Q.S6HTHE  HEIOHTS  FROM  FLETCHER  AND  PONELL  MINIMIZING 
1  PROGRAM  ) 

00  136  1  =  1. ML 

136  HRITEf IOUT.  135)  I.X(I) 

135  F0RMATflH0.T15.2HXf ,42, 4H)  =.E20.6) 

CALL  SHAP1 (R12.R13.R14.R15.R2l .R23.R24.E23.R31 .R32.R34.R35.R41  .R42 
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1  .R43.R45.R51 .R52.R53.RSAi 
KL=1 
IHal 
INs2 
N=N1 
H=N2 
L=N3 
KNsN4 
KM=N5 

CALL  RSTARIR11 .R12.R13.R14.R15.R22.R23.R24.R2S.R33.R34.R35.R44.R4S 
1 .R55.RST1 1 .RST12.RST22.N.H.L.KN.KH.NSETS.I0UT) 

10  CONTINUE 

CALL  MATIV(RST22»H.0.DETRH.ID.I0UT) 

NN  =  1 

CALL  TRILMRSTll.N.TX.n.HK.NN.OZ.ATINV.IOUT) 

CALL  MULT2! TX  .RST22 .RST1 2 .N .UK .H .RESUT .DZ .IOUT.KL) 

DO  60  Ial.MK 
00  60  JzI.HK 
IJ3IJ*((J~1  )}/2  ♦  I 
60  EIGNUJ]=R£SUT(I.J) 

CALL  EIOEN(EION.R.HK.O) 

NRITE( IOUT. 102 )  KL .EIGN! 1 1 

102  FORHAT! 1H0.T10 .3HTHE . I3.12H  EIGEN-VALUE  //(T10.SE20.6) ) 

WRITE! IOUT. 120)  £ RC  Z  1 .1*1  .flK J 

120  FORhATl 1H0 . T1U .27HTHE  ASSOCIATED  EIGEN-VECTOR  //( T10 .5E2C.6) ) 

RHO=  SORT!  ABSIEIONU))) 

WRITE! IOUT  .111  )  IH.IN 

111  FORMAT! 1H0.T10.38HTHE  CANONICAL-PARTIAL  CORRELATION.  SET.I2.7H  VS 
1SET.I2.18H  GIVEN  THE  OTHERS  ) 

PRHOUM.IN)=RHO 

WRITE!  IOUT.  103  1  PRHOUH.IN) 

103  FORMAT! 1HO.T2G.E20. 6) 

IFtNSETS  -  2)  4000.11.4000 
4000  CONTINUE 

GO  TO  (1.2.3.4.5.6.7.8.9.11) .KL 

1  CONTINUE 
KLsKL  ♦  1 
IH  =  1 
IN=3 

N  3  N1 
H  3  N3 
L  r  N2 
KN  3  N4 
KH  3  N5 

CALL  RSTAR(R1 1 .R13.R12.R14 .R15 .R33.R32 ,R34 .R35 .RZ2.R24.R25.R44 .R45 
1  .R55.RST11 .RST12.RST22.N.H.L.KN.KM.NSETS.I0UT) 

GO  TO  10 

2  CONTINUE 
IK  3  2 
IN  3  3 

N  s  N2 
H  =  N3 
L  =  N1 
KN  3  N4 
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KH  =  NS 

CALL  RSTPRtR22.R23.RZl .R24.R2S .R33.R31 .R34 .R35.R1 1 .R14.R15.R44.R45 
1 .R55.RST11 .RST12.RST22.N .H.L.KN.KH.N6ET6.I0UT) 

GO  TO  10 
3  CONTINUE 

IFtNSETS-31  4004.11.4004 
4004  CONTINUE 
KL  s  KL  ♦  1 
IN  a  1 
IN  s  4 


N  =  N1 
n  o  N4 
L  s  N2 
KN  s  N3 
KH  s  NS 

CPLL  RSTPRtRll.R14.R12.R13.R15.R44.R42.R43.R45.R22.R23.R25.R33.R35 
1 .R55.RST11 .RST12.RST22.N.H.L.KN.KH  /'SETS . I OUT) 

00  TO  10 
4  CONTINUE 
KL  s  KL  +  1 
I«s  2 
IN  s  4 
N  3  N2 
M  s  N4 
L  s  N1 


KN  s  N3 


KH  s  N5 


CPLL  RSTPRIR22.R24.R21.R23.R25.R44.R41.R43.R45.R11.R13.R1S.R33.R35 
1 .R55.RST11 ,RSri2,RST22.N.H,L.KN.KH.NSETS.I0UT) 

OO  TO  10 
S  CONTINUE 


KL  s  KL  ♦  1 
IM  =  3 
IN  s  4 


N  s  N3 


M  s  N4 
LsNl 
KN  s  N2 
KH  s  N5 

CRLL  RSTPRt  R33 .R34 .R31 .R32 .R35 .R44.R41.R42.R45.R11.R12 .R1S.R22.R25 
1 .R55 .RST1 1 .RST12 .RST22 .N .H.L .KN ,KH .NSETS , IOUT ) 

00  TO  10 
6  CONTINUE 

I F t NSETS- 4 )  4008.11.4008 
4008  CONTINUE 


KL=  KL  ♦  1 


IH  3  1 

IN  s  5 
N  =  N1 
H  s  N5 
L  s  N2 
KN  s  N3 


KH  3  N4 

CPLL  RSTPRt Rll .R15.R12.R13.R14.R55.R52 .R53.R54.R22.R23.R24.R33.R34 
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l.R44.RSTU.RST12.RST2Z.N.M,L.KN.KN.NfiETS.I0UT) 

60  TO  10 

7  CONTINUE 
KL  s  KL  ♦  1 
IM  =  2 

IN  s  5 
N  =  N2 
II  a  NS 
L  =  N1 
KN  s  N3 
KH  =  N4 

CALL  RSTAR( R22 .R25.R21 fR23.R24 .R55.R51 .R53.R54.R1 1 .R13.R1 4.R33 .R34 
1 .R44.RST11 .RST12.RST22.N.M.L.KN.KM.NSETS.I0UT) 

GO  TO  10 

8  CONTINUE 
KL  =  KL  ♦  1 
IN  a  3 

IN  s  5 
N  =  N3 
H  =  N  > 

L  =  N1 
KN  =  N2 
KM  =  N4 

CALL  RSTAR£R33 .R35.R31 .R32.R34 .RS5,R51 .R52 .R54 .Rll »R12.R14 .R22 »RZ4 
1  .R44  .RST1 1  .RSI  12  .RST22  .N,H.L  .KN  .KN  .NSETS .  IOUT) 

00  TO  10 

9  CONTINUE 

KL  =  KL  ♦  1 
IM  =  4 
IN  =  S 
N  =  N4 
N  a  N5 
L  =  N1 
KN  =  N2 
KN  =  N3 

CALL  RSTAR£ R44 .R45 .R41 .R42#R43 .RS5.R51 .RS2,RS3.R11.R12.R13.R22.R23 
1 .R33 .RST1 1 .RST12 .RSTZZ .N.M.l.KN.KH.NSETS. JOUT) 

00  TO  10 
11  CONTINUE 
KL  =  KL  ♦  1 

CALL  PARHOl PRHO  »IN • IOUT) 

HRITE(IOUT.llll) 

1111  PORNAK  1H1 1 
1131  CALL  MULCR 
99  STOP 
END 
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SUBROUTINE  SMflPHRT12.RT13.RT14.RT15.RT2l  .RT23.RT24.RT2S.RT31  .RT32 
1.RT34.RT35.RT41.RT42.RT43.RT45.RTS1.RT52.RTS3.RTS4) 

DIMENSION  RT12(5.5).RT13(5.5).Rn4(5»5).RT15(5<5)  .RT21 (5.5) »RT23(5 
1.5).RT24(S.5).RT25(S.5).RT31{S.5).RT32(5.S).RT34(S.S),RT3S(S  51.RT 
241(5.5) .RT42( 5.5) .RT43( 5.5) *RT45( 5.5)  .RT51(5.5).RT52(5.5)  ,P  i  j\  (5.5 
3).RT54(5.S) 

COMMON  N1 .N2.N3.N4.N5.DZ.0E. I  OUT. ML. NSETS 
DO  10  1=1. N. 

DO  10  J=1.N2 

10  RT21tJ.I)=RT12(I.J) 

IFINSETS  -  2)  200.99.200 

200  CONTINUE 

00  11  1=1. N1 
00  11  J=1.N3 

11  RT31 ( J.I )=RT13( I . J) 

DO  12  1=1. N2 

00  12  J=1.N3 

12  RT32(J.I)=RT23(I.J) 

IF( NSETS-3 )  210.99.210 

210  CONTINUE 

00  13  1=1 ,N1 
DO  13  J=1.N4 

13  RT4H J.I)=RT14U.J) 

00  14  1  =  1  ,N2 

00  14  «J=1  .N4 

14  RT42(J.I)=RT24(I.J) 

00  15  1=1. N3 

Tj  15  J=1.N4 

15  RT43( J.I )=RT34( I  .J) 

IF( NSE TS-4  )  211.99,211 

211  CONTINUE 

00  16  1=1. N1 
00  16  J=1.N5 

16  RT51(J,I)=RT15(I.J) 

00  17  1=1 ,N2 

00  17  J=1.N5 

17  RT52( J.I )=RT25( I .J) 

00  IB  1=1  ,N3 

00  18  J=1.NS 

18  RT53£J.I)=RT35(I.J) 

00  19  1=1. N4 

00  19  Jsl.NS 

19  RTS4( J.I )=RT45( I »J) 

99  RETURN 

END 


c 
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SUBROUTINE  RSTARf RS11 .RS12.KS13.RS14 .RS15.RS22.RS23.RS24 .RS25.RS33 
1 .RS34 .RS3S.RS44 .RS4S .RS55 .RSTI 1 .RST12.RST22 ,NN .NM .NL .NKN .NKH.N6ET6 
2.I0UT) 

DIMENSION  RSillS.S) ,RS12( 5.5) .RS13I 5.5) .RS14(5.S) .RS15I S.S) .RS22I5 
1.5).RS23IS,5).RS241S.S).RS2S15.S).RS33(5.5).RS34(S.5),RS35(5.S),RS 
244 (5 >5) ,RS45(5.5) .RS55I5.5) 

DIMENSION  WORK  1 1 5.5) .W0RK21 5,5 1 .W0RK3I 5.5) 

DIMENSION  W0RK4 115.15) .W0RK5J 15 *15 ) .W0RK61 15,15) 

DIMENSION  RSTllll0.10),RST12(10.20).RSr22(20.20) 

DIMENSION  PAK33I20.20) 

DIMENSION  PAK13(S.15).PAK23I5,15) 

DATA  H0RK1 .W0RK2 .W0RK3.PAK13 ,PAK23/225»Q  *EO/ 

DATA  WORK4.WCRK5.W0RK6/675«O.EO/ 

DATA  PAK33/400«0.E0/ 

IPtNSETS  -  2)  300.96,300 
300  CONTINUE 

DO  30  1=1. NN 
DO  30  J=1  ,NL 
PAK13(I.J)=RS13II.J) 

30  CONTINUE 

DO  31  1  =  1. NM 
DC  31  J=1,NL 
PAK23I I  . J )=RS23l I .J) 

31  CONTINUE 

DO  32  1=1. NL 
00  32  J=1.NL 
32  PAK33tI.J)=RS33II.J) 

IFtNSclS-3)  301.96.301 

301  CONTINUE 

00  33  1=1. NN 

DO  33  J=1  ,NKN 

INKN  =  NL  ♦  J 

PAK13I 1 ,INKN)=RS14( I .J) 

33  CONTINUE 

00  34  1  =  1. NM 

00  34  Jsl.NKN 

INKN  s  NL  ♦  J 

PAK23I  I.INKN)=RS24U.J) 

34  CONTINUE 

00  3  1  .NL 

DO  3  l.NKN 

INKN  =  NL  ♦  J 

PAK33I I ,INKN)=RS34( I .J) 

35  PAK33( INKN. I )=PAK33( I .INKN) 

00  36  1  =  1  . NKN 

INKN  =  NL  ♦  I 
00  35  J=1 .NKN 
JNKN  =  NL  ♦  J 

36  PAK33( INKN . JNKN )=RS44l I .J) 

IFINSETS-4)  302.96.302 

302  CONTINUE 
1NNKN=  NL  ♦  NKN 
DO  37  1  =  1. NN 


00  37  Jsl.NKN 
INKH  n  INNKH  ♦  J 
PAK13! I .INKH)=RS15( I .J) 

37  CONTINUE 

00  38  Isl ,NH 
00  38  J=1.NKH 
INKH  =  INNKH  ♦  J 
PAK23I I *ZNKH)=RS25t I .J) 

38  CONTINUE 

DO  39  1=1. Nl 
DO  33  J=1.NKH 
INKH=  INNKH  ♦  J 
PAK33(I.INKH)=RS3S!I.J) 

39  PAK33! INKH . 1 )=PAK33£ I • INKH) 

DO  40  1=1. NKN 

INKN  =  NL  ♦  I 

DO  40  J=1.NKH 

INKH  =  INNKH  ♦  J 

PAK33! INKN . INKH)=RS45t I .J) 

40  PAK33! INKH . INKN )=PAK33! INKN. INKH) 

DO  41  1=1. NKH 

INKH  =  INNKH  ♦  I 
DO  41  J=1 ,NKH 
.INKH  =  INNKH  ♦  J 

41  PAK33! INKH ,  JNKH lsRSSSl I .J) 

96  CONTINUE 

N345  =  NL  ♦  NKN  ♦  NKH 

CALL  HATIV! PAK33.N345.0.DETRH.ID.I0UT) 

DO  42  1=1. NN 
DO  42  J=1.N345 
DO  42  K=1.N245 

42  WORK 4 ( I .  J)=W0RK4! I .  J  )  >  PAK13U  ,K  )«PRK33I K . J) 

00  43  1=1. NN 

00  43  J=1.NN 
00  43  K=1 ,N34S 

43  W0RK1  (  I  ,  J  )  =  WORKl(I.J)  ♦  W0RK4I I  ,K  5«iPAK13t  J.K ) 
DO  44  1=1. NN 

DO  44  0=1. NN 

44  RSTlllI.J)  =  RSI  1  ( I  .J  1  -  NORKl(I.J) 

DO  45  1=1. NH 

DO  45  J=1.N34S 
00  45  K=t.N345 

45  WORKS! I . J 1  =  WORKS! I .J)  +  PAK23! I .K  J*PAK3^(K.J) 
00  46  1=1. NH 

00  46  Jsl.NH 
DO  46  K=1.N34S 

46  W0RK2U.J)  =  W0RK2U.J1  «■  WORKS!  1  ,K)*PRK23( J.K) 
00  47  1=1. NH 

00  47  J=1.NH 

47  RST22II.J)  =  RS22U.J)  -  W0RK2U.J) 

DO  48  1=1. NN 

30  48  0=1 .N345 
00  48  K=1.N345 

48  WORKS!  I. J)  =  WORKS!  I. J)  PAK13!  I  ,K  )«PAK33(K ,  J) 
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00  49  Isl ,NN 
00  49  Jsl .Nil 
00  49  Ksl .N345 

49  H0RK3U.J)  =  H0RK3I I  .J)  ♦  WORKS (I  ,K J«PflK23( J.K  1 
00  50  Isl.NN 
DO  50  Jsl  .Nit 

RST12U.J)  =  RS12U.J)  -  H0RK3U.J) 

SO  CONTINUE 

HRITEC I OUT. 101 1 

101  FORMAT! 1 HO. T10.16HTHE  R  -  STAR  SET  1 

WRITE! IOUT. 102)  ! (RST11! I .J) .J=l  .NN) .1=1  ,NN) 

WRITE (IOUT. 102)  URST12! I  .J)  ,J=l  .NM)  .1*1  .NN) 

WRITE! IOUT .102)  ( ! RST22! I .Jl.Jsl ,NM) .1=1 *NH) 

102  FORHATI1HO.T10.5E20.6) 

RETURN 

END 
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SUBROUTINE  MRTIUCfl.Nl  .HI  .DETRH.IO.IOUT) 

DIMENSION  0(5. 5). 6(5.1 ).  INDEX (5. 3) 

EQUIVALENCE  (IRON. .JROH ) »( ICOLM. JCOLM ). (RMRX.T. SMAPP ) 

I OUT  =  3 

OE=l .EO 

OZ=O.EO 

M=M1 

N=N1 

D£TRH=OE 
00  20  J=1.N 
20  INDEX! J.3)=0Z 
DO  550  1=1 »N 
AHAX=OZ 
00  105  Jsl.N 

IF(IN0EX(J.3)-1)  6C.10S.60 
60  DO  100  K=1.N 

IF( INDEXJ K.3J-1 )  80.100.715 
80  IF( AMAX-AB3( A( J.K ) ) )  85„100. 100 
85  1R0W=J 
ICOLM-K 

RHAX=ABS(A(J.K)) 

100  CONTINUE 
105  CONTINUE 

INOEX( ICOLM.3)=IN0EX( ICOLM. 3)*1 
INDEX(I.1)=IR0H 
INDEX ( I .2  )  =  IC0LH 
IftlROH-ICOLM)  14C.310.140 
140  DETRMs-OETRH 
DO  ZOO  L=1.N 
SWAPP=fl£ IROH.L ) 

A(  IR0W.L)=A(  ICOLtl.L) 

200  A( ICOLM.L )=SHAPP 
ip;m)  3io.3io.zio 
Z10  00  250  L=1.M 
5HfiPP=B( IROH.L ) 

B( IROH.L)=B( ICOLM.L) 

250  9( ICOLM.L  )=SHAPP 
310  PIVOT=Ai ICOLM.ICOLM) 

OETRM=OETRM*PIVOT 
fl(IC0LM.IC0LM)=0E 
00  350  L=1  ,N 

350  fl( ICOLM.L J=A(  ICOLM.L ) /PIVOT 
IFIM)  380.380.360 
360  00  370  L=i.M 
370  0(  IC0LM,L)=8(  ICOLM. D/PIVOT 
380  DO  550  11  =  1. N 

IF( Ll-ICOLM )  400.550.400 
400  T=A(Li. ICOLM) 
fl(Ll.IC0LM)=02 
CO  450  Lsi.N 

450  fl{Ll.L)=AlLl.L)-R{ ICOLM.L  )■! 

IF(M)  550.550.460 
460  00  SCO  L=1.H 


500  Bai.L)=8IU.U-BUC0Ul.L)«T 
550  CONTINUE 
00  710  1=1 .N 
L=N*2-I 

IF(IN0EXa.n-IN0EXa.2n  630.710.630 
630  JKOH=INO£X(L.l ) 

JCOLH= I NOEX  i .2 ) 

00  705  Ksl.N 
SMAPP=A£K.JROH) 

ACK.JR0W1=ACX.JC0LH) 

AIK.JC01M)=SMPP 
705  CONTINUE 
710  CONTINUE 
DO  730  K=1.N 

IF( IN0EX1K.31-1 )  715.720.715 
715  10=2 

00  TO  740 
720  CONTINUE 
730  CONTINUE 
10=1 

740  CONTINUE 

NRITEIIOUT. 10551 

1055  FORMflT( 1H0///T10.14HTHE  INVERSE  16  1 

00  033  1=1 .N 

033  NRITEU0UT.101)  (fl(l.J).Jsl.N) 

101  FORMA n 1H0.T10.SE20.6) 

WRITEI IOUT .111)  QETRH 

111  FORHAT( 1H0.T10.17HTHE  DETERMINANT  =  .E20. 
RETURN 
ENO 


SUBROUTINE  MATIVIA.N1 .Ml .OETRM.ID.IOUT) 

DIMENSION  A l 20 >20 ) ,8( 20. 1 ) , INDEX! 20 .3) 

EQUIVALENCE  ( IRON . JROW 1.(1 COLH . JCOLH ) . C AHAX . T .SMAPP ) 

DE=1 .EO 

OZsO.EO 

Halil 

N=N1 

DETRHaOE 
00  20  J=1.N 
20  INDEXtJ.3)aOZ 
00  550  lal.N 
AHAXaDZ 
00  10S  Jal.N 

IFIIN0EXIJ.3)-1 J  60.105.60 
60  00  100  Kal.N 

IF( INDEXt  K .31-1)  60.100.715 
80  IF( RMAX-A8S( At J.K  1 )  1  85.100.100 
05  IROWaJ 
ICOLHaK 

AHAXaABSt  At  J.K  1 1 
100  CONTINUE 
105  CONTINUE 

INOEXt  ICOLH .3  JalNOEXt  IC0LH.3)*! 

INDEXt I .1 )=IROH 
INDEX ( I .2 )a I COLH 
IFt IROW-ICOLH )  140.310.140 
140  DETRMa-OETRM 
DO  200  Lal.N 
SHAPPaRt IROH.L 1 
AtlROW.LlafltlCOLfl.Ll 
200  At ICOLH .L JaSHAPP 
IFifl)  310.310.210 
210  00  250  Lal.H 
SHAPPaBt IROH.L) 

61 IROH.L) =9 ( ICOLH ,L) 

250  Bi  ICOLH. L JaSHAPP 
310  PIVOTaAUCOLH. ICOLH) 

OETRMaOerRMaPIVOT 
At ICOLH. ICOLH)=OE 
00  350  L=1.N 

350  At  ICOLH. DaAtICOLM. D/PIVOT 
IFt H )  380.380.360 
360  00  370  Lal.H 
370  BtlCOLH.UaBt  ICOLH.  D/PIVOT 
300  00  550  Llal.N 

IFILl-ICOLH)  400,550.400 
400  TaAtLl .ICOLH) 

At  LI • ICOLH  )aOZ 
DO  450  Lal.N 

450  AtLl.L)aA(Ll.L)~AI ICOLH. L)»T 
IF(H)  5S0.5S0.460 
460  00  500  Lal.H 

500  BtLl.L)r&(Li.L)-B( ICOLH ,L)»T 


SSO  CONTINUE 

00  710  1=1  .N 
L=N*1-I 

IF! INDEX! L . 1 1-INOEX! L .2 J )  630.710.630 
630  JROH=INOEXa.l) 

JC0LM=!NDEX(L.2) 

00  70S  K=1.N 
SHfiPPsflCK.JROH) 

A!K.JR0W)=A!K.OC0LM) 

A! K . JCOLH )=SWAPP 
70S  CONTINUE 
710  CONTINUE 

00  730  K=1  .N 

IFIINOEXIK. 31-13  715.720,715 
71S  10=2 

GO  TO  740 
720  CONTINUE 
730  CONTINUE 
10=1 

740  CONTINUE 

WRITE! IQUf .1055) 

10SS  FORMAT! 1H0///T10.14HTHE  INVERSE  IS  1 
DO  833  1  =  1. N 

833  WRITE! I0UT.101 1  1  A! I .J) .J=l ,N) 

101  FORMAT! 1H0.T10.SE20.6) 

WRITE! IOUT. Ill)  OETRM 

111  FORMAniHO.riO.  17HTHE  DETERMINANT  =  ,E20. 
RETURN 
END 
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SUBROUTINE  TRILW(A.N.TX.TY.MK.NN.OZ.ATINV.IOUT) 

DIMENSION  A(  10.101.BU0.10)  .PI  10.10) ,Q(  10*10)  •UC  10.10).V( 10#1O).TX 
1( 10.10) .TY(1 0.10) .ATINV( 10,10) 

DON  =  l.E-3 
00  9  1=1. N 
00  9  0=1. N 
ATINVI I .J)=OZ 
2  8( I ,J)=OZ 
00  96S  1=1. N 
96S  0(I.I)=1.EO 
00  10  1=1. N 

ud.Dsflit.n 

vd.dsBd.n 

Pd.nsud.n/ud.n 

10  Q(i.i)=vu.n/u(i.n 

#  i=i 

00  11  K=2,N 
13  CONTINUE 

IFU)  15.15,15 

15  00  12  J=1.N 
A(K.J)=A(K..J)-P(I.K)sU(I.J) 

8(K.J)=B( K .J)-PI I .K)*V( I ,JJ 
U(K.J)=A(K.J) 

V(K.J)=8(K.J) 

12  CONTINUE 
1  =  1-1 
00  TO  13 

16  I=I*K 

00  19  LJ=1.N 

IF( ABSI U( K .K ) l-OON )  28.28.25 
25  P(K.LJ)=U(K.LJ)/UIK.K) 

Q(K.LJ)=V(K.LJ)/U(K.K) 

CO  TO  19 
28  U'*.U)=OZ 
V(K.LJ)=OZ 
P(K«LJ)=OZ 
Q(K.LJ)=OZ 
19  CONTINUE 

11  CONTINUE 

00  18  1  =  1.  N 

USQRT=SQRTCABS(U(I.im 
IF( USQRT-DON )  10.18.1 
1  00  10  Jsl.N 
U( I  ,J)=U( I .Jl/USQRT 
VU.J)=V(I.J)/US9RT 
18  CONTINUE 

CO  TO  (91 .92.91 ).NN 
91  CONTINUE 

HRITEUOUT.IOO) 

100  FORMAT!  1HO.T2O.30HTME  TRIANOULAR  MATRIX  IS  AS  FOIL 'NINO  ) 

00  98  1=1. N 

IF( ABS(U( I »I ) )— DON )  96.96.95 
WRITE!  IOUT  .1011  ( VU  ,J)  .J=l  ,N) 


95 


36  CONTINUE 
CO  TO  97 
92  CONTINUE 
DO  991  1=1 .N 
00  991  J=1  »N 

ifiabsiuii.jii-oon)  992.992.991 

992  U(I.J)=OZ 
991  CONTINUE 

WRITE! IOUT ,2251 

225  FORMATl 1H0.T10.16HTHE  Tf  HATRIX  IS  I 
00  20  1=1 .N 

inflBsiuu.in-ooN)  20.20.21 

21  HRITEt IOUT .1011  I U( I . J 1 . J=1 ,N 1 
101  FORMAT! 1H0.T10.5E20.61 
20  CONTINUE 

97  NK=N 
1=1 

IF(A9S(U( 1 .1 ) J— DON  1  32.32.31 

31  LK=1 

41  CONTINUE 

CO  TO  (222.221 .222). NN 

221  00  33  J=1.N 

33  TX(LK.J3-U£I.J) 

CO  TO  4C 

222  CONTINUE 

00  223  J=1.N 

223  TX(LK,J1=V( I  .J) 

CO  TO  40 

32  1=1*1 
MX=MK-1 

IF(I-N)  53.53.37 
53  CONTINUE 

IFtABSlUII. 131-DON)  32.32.31 
40  1=1*1 
LK=LK*1 

IFU-N)  36.36.37 

36  IF(A3S(U( I .1 1 1-OON)  42,42,41 

42  1=1*1 
MK=MK~1 

IF(I-N)  50.50.37 
50  CONTINUE 

IFIfiBSlU!  I.m-OON)  42.42^41 

37  CONTINUE 
IFU1K)  60,61.60 

CO  CONTINUE 
DO  55  1=1. MK 
00  S5  J=1.N 
55  TY(s) , I  )=TX(  I  .J) 

IFINN-3)  39.98.99 

98  CONTINUE 

00  234  1=1. N 
00  234  J=1.N 
234  ATINV! I .  J)=DZ 
00  235  1=1. MK 
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00  235  Jsl.HK 
00  235  Ksl.N 

235  ATINVU.JlsATINVlI.J)  ♦TXII.KIbTYIK.J) 

GO  TO  99 

61  WRITE! I OUT .103) 

103  FORMAT! 1HC.T30.48HTHE  HAIN  DIAGONAL  ELEMENTS  OF  HTE  MATRIX  ARE  ALL 
1  //T31.47H  ZEROS.  TERMINATE  THE  EXECUTION  OF  THE  PPOORAM  1 
PAUSE  1111 
99  RETURN 
END 


SUBROUTINE  OEPOV(fl.N.OETRN) 
0IN.N6I0N  fl(S. 5) 

K=2 

Lsi 

1  00  10  I=K,N 
RflTIO=M  I.U/flCL.L) 

00  10  J=K.N 

flf  I,J)=fllI.J)-fl(L-.JJ»RflTIO 
10  CONTINUE 

IF(K-N)  15.20.20 
IS  L=K 
K=K+1 
00  TO  1 

20  OETRHal. 

DO  21  1=1 .N 
OETRM=OETRH«fl(I.n 

21  CONTINUE 
RETURN 
ENO 
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C 

C 

C  SUBROUTINE  HULCR 

C 

C*i 

Ca  THIS  SUBROUTINE  HULCR  IS  TO  CALCULATE  THE  CANONICAL-MULTIPLE 

Cm  CORRELATION. 

Ca.  SUBROUTINES  PACKA.  HATIV.  MULT1EIGEN.  AND  HANUP  ARE  CALLED  TO  THI 
Cm  PURPOSE.. 

Cm 

Cmm mmmmmmmmmmmmmmmmmummmmmmMmmmmmmmmmmmmMMmmmmmmmmmmmmmmmmmmummmummmmmrnm 

C 

SUBROUTINE  HULCR 

0IHENSI0N  PRHQT(5.S).RSTllIS.5).RST12I5.20).RST22(20.20),ReSUT(20. 
120)  .AMURO(S) »A(25 ) #RSTY( 25) 

COHHON  N1 .N2.N3. N4.N5.DH.DE* I  OUT  .HL.NSETS 
COMHON  XI2S) 

COHHON  Rll(S.5).R12I5,5).R13i5.S).R14IS.5).R15(5.S).RZl(S.5),R22(S 

1 .5)  .R23I5.S) ,R24( 5.5 ) .R25( S.5 ) ,R31 ( 5.5 ) ,R32( 5.5 ) .R331 5.5 )  »R34( 5.5 ) 
2.R3S(S.5) 

COHHON  R41 ( S.S ) .R42( 5.5) .R43I 5 .5 ) .R44( 5 .5) .R45I5.S ) .R51 ( 5.5) .RS2( 5 

1.5)  .N53I 5.5) .R54t 5.5 ) .RS515 .5) .PRH0(5.5) 

KLsl 

10  CONTINUE 

00  TO  tl.2.3.4.S).KL 

1  CONTINUE 

CALL  PACKA! R1 1 .R12.R13.R14 »R1S .R22 .R23.R24 .R25 .R33 .R34 .R35 .R44 .R45 
l.RSS.RSni.RST2Z.RST12.Nl.N2.N3.N4.N5.NSETS.I0UT) 

C 

Ca 

Ca  THE  SUBROUTINE  PACKA  IS  TO  PACK  THE  ORIGINAL  R-HATIRX  INTO  A 

Cm  NEW  MATRIX  FOR  CALCULATING  THE  CANONICAL-MULTIPLE  CORRELATION 

Cm  WITH  THE  RI la.R12a.RZla  R2Z»  AS  THE  INPUT  MATRICES. 

Ca 

. . . 

C 

NMsN2*N3+N4*NS 

CALL  MATIV(RST22,NM.O.OETRH.Ii).IOUn 
C 

. . . 

Ca 

Ca  THE  SUBROUTINE  MATIV  IS  CALLED  TO  PINO  THE  INVERSES  OF  Rlla  AND  R2 

Ca 

CaaBaaBaBMaBBBaaaaBVMaaBBaBaBBBBBBaBBBaaBaaBBaBBaBBaBBBBBBBaBBBBaBBaBBaa 

C 

N  =  N1 

CALL  MULTI  I RST1 1 .RST22 .RST12 .N.NM .RESUT ,0Z  .IOUT.KL) 

GO  TO  50 

2  CONTINUE 

CALL  PACKAIR22 ,R21 ,R23 .R24 .R2S .Rl 1 »R13 .R14 .R15.R33.R34 .R35 .R44.R45 
1  .R55.RST11 .RST22.RST12.NZ.N1 .N3 .N4 .N5.N5ETS » IQUT 1 
NM  a  Nl  »  N3  ♦  N4  ♦  N5 
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CALL  HATI V{ RST22 .NH .0 .OETRM .ID. IOUT) 

N=N2 

CALL  MULTI! RST 1 1 .RST22.RST12 .N .NM .RESUT .02 . IOUT ,KL ) 

CO  TO  SO 

3  CONTINUE 

CALL  PACKAIR33.R31 .R32.R34.R35.R1 1 .RI2 .R14.R1S.R22.R24.R25.R44.R45 
1 ,R55  .RST1 1 .RST22.RST12.N3.N1 »N2 .N4.N5 .N6ETS.I0UT) 

NH*N1*N2+N4*N5 

CALL  HATIV(RST22.NH.O, OETRM. 10, IOUT) 

N=N3 

CALL  MULTKRST11  .RST22.RST12.N.NN. RESUT. 02. IOUT  .KL) 

CO  TO  SO 

4  CONTINUE 

CALL  PACKA!  R44  .P  ‘*1 .R42 .R43.R45.R11.R12 .R13.RIS.R22 .R23.R25.R33.R35 
1 .R55.RST11 .RST22.RST12.N4.N1 .N2.N3.NS.NSETS.I0UT) 

NHaNl*N2*N3«-NS 

CALL  NATIV!RST22.NH.0.0ETRH.ID.I0UT) 

N=N4 

CALL  NULTKRSTll  .RST22.RST12 .N.NH .RESUT .02 .IOUT .KL) 

CO  TO  SO 

5  CONTINUE 

CALL  PACKA(RS5. RSI. RS2.RS3.RS4.Rn .R12.R13.R14.R22.R23.R24.R33.R34 
1 .R44.RST11.RST22.RST12.N5.N1.N2.N3.N4.NSET6.I0UT) 

NH=Nl*N2rN3+N4 

CALL  MATI V! RST22 .NM .0 .OETRM . 10 . IOUT) 

N=NS 

CALL  MULT1IRST11  .RST22.RST12. N.Ntl. RESUT. 02. IOUT.KL) 

50  CONTINUE 
00  80  1*1. N 
00  80  JsI.N 
Id=I Ja! J-l))/2  ♦  I 
80  A(IJ)*RESUT!I.J) 

CALL  EIGEN(A.RSTY.N.O) 

C 

Ca«aa  s«  *s  Ml  bb»  ■■  b  Mai.  ■■■■■■■■■■  bum  Bat  ■■■«■  mum  ■■■■■> 

c* 

Ca  THE  SUBROUTINE  EIGEN  IS  FROM  SSP  WHICH  WILL  BE  UCEO  TO  FIND  THE  EIO 
Ca  VALUE  AND  THE  EIGEN-VECTOR  FOR  THl  SYMMETRIC  MATRIX. 

Cm 

C* 


101 

RriO=  SQRT;A8S!A(i))) 

WRITE!  IOUT. lCl)  KL.AU) 

FORMAT! 1H0.T10.3HTHE.I3.12H  EIGEN-VALUE  //T10.E20.6) 

120 

WRITE! IOUT. 120)  £ RSTY 1 1 ) .  Isl  ,N ) 

FORMAT!  1H0.T10.18HTHE  EIGEN-VECTOR  //(T10 

.5E20.6)) 

112 

WRITE! IOUT. 112) 

FORMAT ! 1H0.T10.34HTHE  CANONICAL-MULTIPLE 

CORRELATION  ///) 

102 

WRITE! IOUT . 102 )  RHO 

FORMAT! 1H0.T10.5HRH0  =  .E20.6) 

99 

AMURO! KL )=RH0 

KL=KL*1 

IFlKL-NSETS)  10.10.99 

CONTINUE 

234 


kll=kl-i 

HR I TE ( I OUT .222 )  ( AHURO tl) . 1= l .KLL ) 

222  FORMflmHO.TIO, 41HTHE  CPNONI CAL-HULT I PLE  CORRELflTIOH  MATRIX  //t  T10 
I.5E20.61) 

C 

Ca 

Cm  THE  SUBROUTINE  HflNUP  IS  TO  FINB  THE  NORMALIZED  CORRELATIONS  BY 
C*  MULTIPLY  EACH  OF  THE  CANONICAL-PARTIAL  BY  ITS  APPROPRIATE  CANONICAL 
Cm  MULTIPLE  CORRELATIONS .  I.E.  -RH01I  .Jl/SQRTU  l-AHUR0m««2)»C  1-AMURO 

Cm 

Cmmmmmmmmmmmmmmmmmmm»»mmmmmmnmmmmmmmmmnmnnmmmmmmmmmmmmm»mmnmmmmmmmnumm*m 

C 

CALL  HANUP1PRH0. AHURO. KLL. I0UT1 
00  1119  1=1 .KLL 
00  1119  J=1.KLL 
PRHOT( I . J1=PRHQ{ 1 ,J) 

1119  CONTINUE 

CALL  MAT  1 U( PRHOT .KLL .0 .OETRM .  1 0 . 1  OUT  I 
CALL  PAOJSiPRHO.KLL.IOUT ) 

1132  CALL  RHOCT 

1133  RETURN 
END 


c 
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SUBROUTINE  PfiCKfHRTl 1 ,RT1Z .RT13.RT14 .RT15.RT22 .RT23 .RT24 .RT2S.RT33 
l,RT34.RT3S.RT44.RT4S.RT55.RSTil,RST22,RST12.N.N.L.KN,KM.N6Er6.I0UT 
2) 

DIMENSION  RT1 1 (S.5) .RT12(5»5) .RT1 3(5.5) .RT14(5.5),RTIS(5.5) ,RT22(S 
1 .5) .RT2315.5) ,RT24(5.5).RT25(5.5) ,RT33( 5.5) ,RT34( 5.5 ) .RT35(5.5).RT 
144(S.5).RT4S{5.5).RTS51S.5) 

DIMENSION  RST1 1 (5.5) .RST12( 5.20) ,RST22( 20,20) 

DO  10  1=1 
DO  10  0=1 .N 

10  RST1H  I  »0)=RT11(  1 .0) 

DO  11  1=1 .N 
DO  11  0=1. M 
RST12C I .0)=RT12I I  #0) 

11  CONTINUE 

DO  13  1=1. M 
DO  13  0=1 .M 

13  RST22(I.O)=RT22(I.O) 

IF{ NSETS  -  2)  300.96.300 
300  CONTINUE 

DO  12  1  =  1. N 
DO  12  0=1. N 
00  =  tf  +•  0 

RST12U.00)  =  RT13II.0) 

12  CONTINUE 

00  14  1=1 ,M 
00  14  0=1. L 
00  a  M  ♦  0 

RST22( I .UU)=RT23( I .0) 

14  RST22( 00 . I )  =  RST22£ I .001 

DO  IS  1=1. L 
II  =  M  t  I 
00  15  0=1 .1 
00  =  M  t  0 

15  RST22! 1 1 . JO )=RT33( 1 .0) 

MM  =  M  +  c 

IF( NSEJo-3 1  301.96.301 
301  CONTINUE 
DO  16  1=1. N 
DO  16  0=1. KN 
OKN  =  HH  *  0 
RST12(I,0KN)=RT14U.J) 

16  RST12C  OKN . I )=RST12( I .OKN 1 
DO  17  1  =  1. M 

DO  17  J=1.KN 
OKN  =  MM  i-  0 
RST2Z( I .OKN )=RT24( I .0) 

17  RST22I0KN.I  )=RST22( I .OKN) 

DO  18  1=1. L 

II  =  M  +  I 
00  18  0=1  . KN 
00  =  MM  t  0 

RST22( I I • J0)=RT34( I #0) 

18  RST22(00.II 1=RST22(II .00) 
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mm  =  n  +  i  ♦  kn 
IFtNSETS-4)  302.96.302 

302  CONTINUE 

00  118  1=1 .N 

00  118  Jrl.KH 

JKH  =  IW  t  J 

RST12!  I .JKM)=RT15( 1 .  J) 

118  CONTINUE 

DO  19  1=1. M 

00  19  Jsl.KH 

JKM  =  HH  t  J 

RST22! 1 .JKM)=RT25(I  .J) 

19  RST22! JKM.I 5=RST22( I .JKN) 

DO  20  1=1 .1 

II  =  M  ♦  I 

00  20  J=1.KM 

JJKM  =  MM  *  J 

RST22! II.JJKM)=RT35t I.J) 

20  RST22! JJKM.I I )=RST22t JJKM.II 1 
00  21  1=1. KN 

II  s  H  ♦  L  ♦  I 

00  21  J=1.KM 

JJKM  a  MM  +  J 

RST221 1 1 . JJKM )=RT45! I . J 1 

21  RST22( JJKM.I I )=RST22t 1 1 .JJKM) 

DO  22  l  1 .KM 

II  =  MM  ♦  I 
DO  22  Jal.KM 
JJ  =  MM  •»“  J 

22  RST22! I I .  JJ )=RT55( I . J ) 

96  CONTINUE 
WRITE! IOUT .102) 

102  FORMAT! 1H0.T10.41HTNE  CANONICAL-MULTIPLE  CORRELATION  MATRIX  1 
MM  a  M  ♦  L 

IF( NSETS-3 )  303.97.303 

303  MM  a  M  *  L  f  KN 
IFtNSETS-4 1  304.97.304 

304  MM  a  H  ♦  L  «-  KN  ♦  KN 

97  CONTINUE 

WRITE! IOUT. 101 )  (lRSTll(I.J).J=l.N).I=i,Nl 
WRITE! IOUT. 101 J  ( (RST12! I.J) -J=l .MM) .1  =  1. N) 

WRITE! IOUT.iOl)  ( (RST22J I .J) .  J=1 .MM ) .1  =  1 .MM) 

101  FORMAT! IH0.T10 .5E20 .6) 

RETURN 

END 


c 
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SUBROUTINE.  MANUP! PRHO »AHURn .KLL *  I OUT  J 
DIMENSION  PRHO!S.5).AMUR0!S) 

OEsl .£0 
00  10  1=1 .KLL 

PRHO!  I .  I  )=PRHO( 1 . 1  )/! OE-AMURO!  Dm2  ) 

00  10  Jal.KLL 
IF( !-J)  11.10.11 

11  PRHO!  I  .J)=-PRH0(  r.JJ/SGRTUDE-ANURO!  I  )«2)m!0E-AHUR0(  J)m2)1 
10  CONTINUE 

WRITE! TOUT. 100) 

100  FORMAT! 1H0.T10.26HTHE-  NORMALIZED  CORRELATION  1 
00  12  1=1 .KLL 

WRITE! IOUT.  101)  (PRHO  1 I  .J)  .J=l  .KLL) 

101  FORMAT! 1H0.T10*5E20.6) 

12  CONTINUE 
RETURN 
END 


SUBROUTINEU’ARHOtPRHO .IN.IOUT) 

DIMENSION  PRHO(S.S) 

00  10  1=1.  IN 
10  PRHO! 1. 1 1  =  1. EO 
IIN=IN-1 
00  61  1=1 . 1  IN 
11=1+1 

DO  61  JsII.IN 

61  PRHO (J. I )=PRHO( I .J) 

WRiTE! IOUT. 108) 

108  FORHAT! 1H0.T10.28HTHE  CANONICAL-PARTIAL  HATRIX  ) 
DO  62  1=1. IN 

WRITE! IOUT. 109)  (PRHO! I ,J) .J=l .IN) 

109  FORMAT!  1H0.T10.5E20. 6) 

62  CONTINUE 
RETURN 
END 


SUBROUTINE  HULT2( TX .RST22.RST12 ,N . MK .H .RESUT .01 . IOUT ,KL I 
DIMENSION  TXUO.  10). RST22I 20.20) .RST121  10.20). RESUK20.20) 
DIMENSION  W0RK1! 10.20} *W0RK2(2O.2O) 

OflTfl  W0RK1.U0RK2/500«0.E0/ 

00  1111  1=1.10 
00  1111  J=l.l!f 
1111  RESUTCI,J)=0.EO 
00  11  1=1  .HK 
DO  11  J=1.H 
00  11  K=1.N 

11  MORKH  I  .J)=W0RK1!  I  ,J )*TX!  1  .K  J-RST12CK.J) 

00  12  1=1 .MK 

00  12  J=1.N 
00  12  K=1.M 

12  W0RK2C I . J )=H0RK2l  I . J  )*W0RK1 1 1 .K )*RST22CK.J) 

00  14  1=1 .MK 

DO  14  J=1.MK 
DO  14  K=1.M 

14  RESUTl  I .  J  IsRESUTt  I  .J)«-W0RK2!  I  .K  )*W0RK1  £  J  ,K ) 

WRiTEtiour.ion  kl 

101  FORMAT! lHO.TlO.CHTHE. 13. 42H  MATRIX  FOR  CAN0NICAL~PARTIRL  CORRELATI 
ION  1 

DO  IS  1=1 .HK 

WRITE! IOUT. 102)  l RESUTi I . J) . J=1  .MK ) 

102  FORMAT! 1HO.T10 .5E20 .6 ) 

15  CONTINUE 
RETURN 
END 


SUBROUTINE  HULTH8ST11  .RST22.RST12.N.H.RESUT.0Z.I0UT.KU 
DIMENSION  RST1 1(5 .51 ,RST22( 20.20) .RST12(5.20) .RESUT(20.20) 
DIMENSION  W0RKl(5.20).H0RK2(20.20) 

DATA  N0RK1.N0RK2/S00»0.E0/ 

DO  10  1=1.10 

DO  10  Jnl.10 

10  RESUT( I .J)=OZ 
DO  11  1=1  ,N 
DO  11  J=I «M 
DO  11  K=1,N 

11  H0RK1.  ( I .  J  )=W0RK1  ( I .  J )  +RST  iAt  .K)*RST12(K .  J 1 
DO  12  1=1. N 

DO  12  J=1.M 
DO  12  K=1.M 

12  N0RK2(  I . J )=W0RK2(  I  .JKH0RK11  I  ,K)«RST22(X.J) 

DO  14  1=1  .N 

DO  14  J=1.N 
DO  14  K=1.M 

14  RESUT(I.J)  =  RESUT(I.J)  ♦  W0RK2C I .K)*RST)2( J.K) 

MRITECIOUT.lOn  KL 

101  f0RMATUH0.T10.3HTME.I3.42H  MATRIX  TOR  CANONICAL-MULTIPLE  CORRELAT 
1  ION  ) 

DO  30  1=1  .N 

30  WRITEl IOUT .102)  (RESUTl I ,J),J=l ,N) 

102  FORMAT ( 1H0.T10.5E20.6) 

RETURN 

END 
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SUBROUTINE  RH0CLIRH0.X.XX.R12.R13.R14.R15.R23.R24.R25.R34.R3S.R4S. 
1HKI .HK2.MK3.MK4.MK5. I END) 

DIMENSION  XI2Sl.XX(25).R12tS.5).R13IS.S).R14t5.S).R15(S.S).R23IS.5 
1 ) .R24I5.5) .R25I5.5) .R34I 5.5) .R35I5.51.R45I 5.53 .RH015.51 
H2=HKUHK? 

M3  =  M2  ♦  MK3 
M4  =  M3  ♦  MK4 
00  30  K=1 .HK2 
HI1=MK1*K 
DO  30  KK=1.MK1 

RHOI 1 .2 )=RHOl 1 .2 )+XI KK )*R12I KK .K )»XI MI  1 )/(XX( 1 )*XX(2 ) ) 

30  CONTINUE 

IHIENO  -  2)  89.91.89 
89  CONTINUE 

DO  31  KI=1.HK3 
MI2=M2+KI 
DO  29  KK=1.HK1 

RHOt  1 .3)=RH0l  1 .3)«-XI  KK  J«R13IKK  .K1  )*XlttI2)/(XXn  )*XXI 31 3 
29  CONTINUE 


00  28  K=1 »MK2 
HI  l=MKl  -*-K 

RH0I2.3)=RHC!2.3WXIMll  )»R23IK.KI)«X(MI2)/lXXt2)*XXO)3 
28  CONTINUE 
31  CONTINUE 

IF ( IENO  -  3)  90.91.90 
90  DO  41  K=1.HK4 
HI3  c  tt3  K 
DO  42  KK=1.HK1 

42  RH011.4)  -  RHOI 1 .4  5  ♦  XIKK)bR14IKK.K)«XXI HI3)/ £ XX C 1)«XX(433 
DO  43  KK=1.HK2 

Mil  =  ttKl  ♦  KK 

43  RHOI 2.4 )  =  RHOI 2 .41  ♦  Xt MI  1 3*R24l KK .K )*Xl MI3 3/1 XX( 2 l*XXl 4 3 1 
DO  44  KK=l,ttK3 

MI2  =  H2  *  KK 

44  RH0I3.4)  =  RH0I3.4)  ♦  X(MI2)»R34IKK.K)i«X<MI3)/lXXl3)*XXU3  3 
41  CONTINUE 

IEI IENO  -  41  92.91.92 
92  DO  51  Ksl.MKS 


52 


53 


54 


55 

51 
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MI4  =  M4  *  K 
DO  52  KK=1 ,HK1 
R, 101 1.5)  =  RHOI)  .5) 
DO  53  K=1  .MK2 
Mil  =  ttKl  ♦  KK 
RHOI 2 .5 1  =  RH0I2.5) 
DO  54  KK=1.HK3 
MI2  =  M2  KK 
RHOI 3 .5  J  =  RHOI 3 .S  3 
00  55  KK=1.MK4 
ttI3  =  M3  ♦  KK 
RHOI 4.5)  =  RH014.5) 
CONTINUE 
CONTINUE 
DO  32  Isl.IENO 


♦  X(KK)*R15IKK,K)»X(MI4)/(XX(1)«XX(53) 


♦  XI  Mil )*R2SlKK.Ki*XIMI4)/tXX(2)»XXI53) 


♦  X(ttI2)*R35IKK.K)«X(MI4)/(XXl3)»XX(S)l 


•r  XIMI3  3*R45( KK .K )*X( MI4  3/IXXI 4 )«XX(5 1 3 
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00  32  J=1 *IEN0 
IFU-JJ  34.32.34 
34  RHOI J.I )=RH0( I  «J) 
32  CONTINUE 
RETURN 
END 


242 


C 

SUBROUTINE  RHOCT 

DIMENSION  XX!  2b‘ 1  .RH015.51 

COMMON  N1  .N2.N3.N4.N5.0Z.0E.I0UT .ML# I END 

COMMON  X1251 

COMMON  RlllS.5).R12lS.5).Rni5.5}.R14l5.5).RlS!5.5).R21!5.51.R22t5 
;,5).R2315.5).R2415.5).R2515.5).R311S.S).R32(S.5).R3315.5).R3415.S1 
1.R3515.5).R4115.5).R42!S.S).R43!S.S).R4415.5).R4515.S),R51(5.S1.3S 
'^5.5).RS3(b*.5).R54l5.5).R55!5.5).PRH0!5.S) 

WRITE!  I  OUT  •  1 113) 

1113  FORMAT! 1H1) 

HRIT£( IOUT .101 1 

101  FORMAT! 1H0.T10.42HTHE  INPUT  HEIGHTS  FROM  FLETCHER  AND  POHELL  1 
MRITE(  IOUT.  100)  (Xm.I=l.HL) 

100  FORMAT! 1H0.T1 1 .5E20-6) 

00  920  1=1. IENO 
DO  920  J=1 .IENO 
920  RHO!I.J)=OZ 
00  9  1=1. TEND 
9  RHOf I . I 1=DE 
DO  10  1=1  .ML 

10  XX( 1 1=D2 

00  11  1=1. N1 

11  xxni=xxmiOun*«2 
DO  12  1=1 .N2 
IlaNUI 

12  XX(2)=XX12)*X(II1m2 
DO  13  1=1 .N3 
II=N1*N2*I 

13  XX(3)=XXl3)+Xlin«»2 


DO 

15 

I: 

*1.N4 

II 

=  | 

Nl 

t  N2  ♦ 

N3 

♦  I 

15 

XXI 

4) 

= 

XX!  41 

♦  XI 

[  1 1 )«*2 

00 

16 

I: 

=  1  ,N5 

II 

n  J 

Nl 

♦  N2  ♦ 

N3 

♦  N4  ♦  I 

16 

XXI 

5) 

— 

XX!  5  J 

♦  XI 

:idm2 

00 

14 

I: 

rl.IENO 

i4  xxm=s<jarixxm) 

CALL  RHOCLC RHO .X.XX.R12.R13.R14.R15 .R23 .R24 .R25.R34 .R35.R4S.RN1 «N2 
1 .N3.N4.N5.IEN0) 

WRITE! IOUT. 112) 

112  FORMATl 1H0.T10.14HTHE  INPUT  DATA  ) 

WRITE!  IOUT.  113  H  IRIK  I  .J)  .J=l  .Nil  .1=1 .  Nil 
WRITE! I OUT. 1131! ! R12! I ,J) .J=l  ,N2).I  =  1.N1 ) 

WRITE! IOUT .  1 13 )( i R22! I .J) • J=1  .N2).I=1.N2) 

IF! IENO  -  2)  888.90.988 
088  CONTINUE 

WRITE! IOUT. 1131! I R13!I.J).J=1.N3). 1=1 .Nl) 

WRITE! IOUT .113)1 C H231 1 • J 1 . J=1 .N3 )  • 1  =  1 >N2) 

WRITE! IOUT , 1 13 H ! R33! I .J) , J=i ,N3 )  .1=1 ,N3) 

113  FORMAT! 1H0.T10.5E20. 6) 

IF! IENO  -  3)  91  90.91 

WRITE! I  JUT. 113)  ( (R1 4! I , J) ,J=1  .N4 ) ,1=1  .Nl) 

WRITE!  IOUT .113)  4  '’24!  I , J 1 . J=1  .N4  ) .  1=1  ,N2 1 
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HRITEC I OUT *113 )  UR341 1  . J) ,J=1  ,N4 ) .  1=1  .N3) 

HRITEC IOUT >113)  C (R44C 1 . J) . J=1 .N4 1.1=1 .N4 1 
IFUENO  -  4)  92.90.92 

92  HRITEC IOUT. 1 13)  ( (RISC  I .J) ,J=1 .NS) .1=1 .HI ) 

HRITEC IOUT. 113)  C CR25C I .J) .J=l .N5) .1=1 ,N2) 

HRITEC IOUT. 113)  C CR35I I .J) .J=l .NS) .1=1 .N3) 

HRITEC IOUT. 113)  C CR4SC I .J) .J=l .N5) .1=1 ,N4) 

HRITEC IOUT. 113)  C CRS5C I .J) .J=l .NS) .1=1 .N5) 

90  CONTINUE 

HRITEC IOUT. 110) 

110  FQRMATC 1H0.T10.35HTHE  CANON I CAL-NE I OHTEO  CORRELATION  ) 
00  3030  1=1 .IENO 

3030  HRITEC IOUT. Ill)  (RHOC I .J) ,J=1 .IENO) 

111  FORMAT ( 1H0.//C  T10.5E20-6) ) 

CALL  PAOJSCRH0. IENO. IOUT) 

CALL  HATIUCRHO. IENO. O.OETRfl. ID. IOUT) 

HRITEC IOUT .115)  OETRM 

115  FORMA TC 1H0 .T10 .2SHTHE  DETERMINANT  OF  RHO  IS  .E20-6) 
RETURN 
END 
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SUBROUTINE  PAD JS( PRHO. KLL. I OUT) 

DIMENSION  PRH015.5) .PRHOT! 5 . 5 ) .PRHOW! S .5 ) 

K  =  1 

DO  40  1=1 .KLL 
00  40  J=1.KLL 
PRHOWII.J)  =  PRhOU.J) 

40  PRHOTU.J)  =  PRHOU.J) 

39  CONTINUE 

WRITE! IOUT  *101 1  * 

101  FORMAT! 1H0.T10 .28HTHE  INPUT  CORRELATION  MATRIX  1 
00  444  1=1. KLL 

WRITE! IOUT.  1  OBJ  CPRHOTl I ,J) .J=l .KLL) 

108  FORMAT! 1HG.T10.5E20.6) 

444  CONTINUE 

CALL  OEPOV(PRHOW.KLL.OETM) 

WRITE!  IO'JT.  102)  OETM 

102  FORMAT! 1H0. T10. 27HTME  DETERMINANT  OF  nATRIX  =  .E20.6) 

CALL  MATIS! PRHOT. KLL. O.OETRrt. ID. IOUT) 

OETEM  =  l./OETRH 
WRITE! IOUT. 555)  OETEM 

SSS  FORMAT! 1H0.T10 .33MTHE  INVERSE  OF  THE  DETERMINANT  IS  .E20.6) 
CO  TO  177.1 .2.3.4. S. 6. 7. 8. 9.99). K 
77  CONTINUE 

00  SS  1=1. KLL 
DO  55  J=1 .KLL 

PRMOT(I.J)  =  ABSIPRHOl I .J) ) 

IF! I  -  J)  56.55.56 

56  PRHOTU.J)  =  -PRHOTU.J) 

55  CONTINUE 

DO  57  1=1. KLL 
DO  57  J=1 ,KLL 

57  PRHOW!  I . J )  =  PRHOTU.J) 

K  =  K  ♦  1 

CO  TO  39 

1  DO  41  1  =  1. KLL 
00  41  J=1 .KLL 

PRHOW! I . J )  =  ABSIPRHOl I . J ) ) 

41  PRHOTU.J)  =  ABS!  PRHO!  I .  J ) ) 

K  =  K  ♦  1 

GO  TO  39 

2  DO  42  1=1 .KLL 
DO  42  J=1.KLL 

PRHOW! I  .J  )  =  ABS! PRHO! I . J ) ) 

42  PRHOTU.J)  =  ABS!  PRHO!  I  •  J ) ) 

PRH0TU.2)  =  -PRH0TU.2) 

PRHOT! 2 , 1 )  =  -PRH0T12.1 1 
PRHOW! 1 ,2 )  =  PRHOT! 1.2) 

PRHOW! 2 . 1 )  =  PRH0T!2,1) 

K  =  K  +  1 
GO  TO  39 

3  DO  43  1=1. KLL 
DO  43  J=1 .KLL 

PRHOTU.J)  =  ABSt  PRHO!  I .  J ) ) 

43  PRHOW!  I. J)  =  PRHOTU.J) 
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PRHOTt 1.3)  s  -PRH0TU  .31 
PRHOTt 3.1)  s  -PRH0TC3.1) 
PRHOHt 1  #3 J  s  PRHOTt 1.3) 
PRH0H13.1)  =  PRHOTO.l ) 

K  s  K  ♦  1 
GO  TO  39 

4  00  44  Isl.KLL 
00  44  Jsl.KLL 

PRHOTtl.J)  3  ABStPRHOl I. Jl) 

44  PRHOHt I. J)  s  ABStPRHOtl.J)) 
PRH0T12.3)  =  -PRH0T12.3) 
PRHOTO.21  =  -PRH0T13.2) 
PRH0H{2,3)  =  PRHOT 12.3) 
PRH0H(3.2)  =  PRHOT  0,21 

K  s  K  ♦  1 
GO  TO  39 

5  00  45  Isl.KU 
DO  45  Jsl.KLL 

PRHOTtl.J)  =  ABSt  PRHOt I .J) 1 

45  PRHOHt I , J )  =  ABStPRHOl I  ,J)) 
PRHOTtl.4)  =  -PRHOTt 1.4) 
PRHOTt  4.1)  S  -PRH0T14.1) 
PRHOHt 1 .4 j  =  PRHOrtl.4) 
PRHOHt  4.1)  s  PRH0Tt4.n 

K  s  K  ♦  1 
GO  TO  39 

6  DO  46  Isl.KLL 
DO  46  Jsl.KLL 

PRHOTtl.J)  =  ABStPRHOl I  ,J) ) 

46  PRHOHt I .  J  )  s  ABSt  PRHOt I ,  J) ) 
PRHOTt 2,4 )  s  -PRhOTt2,4) 
PRHOTt  4.2)  s  -PRHOTt  4,2) 
PRHOHt 2 ,4 )  s  PRHOT (2,41 
PRHOHt  4,2 )  s  PRHOTt  4  .2 ) 
K:Ktl 

GO  TO  39 

7  DO  47  Ul.KLL 
DO  47  Jsl.KLL 

PRHOTtl.J)  s  ABSt PRHOt I . J ) ) 

47  PRHOHt I. J)  s  ABSt PRHOt I , J) ) 
PRH0T(3.4 )  s  -PRHOTt 3 . 4 ) 
PRHOTt  4.3)  s  -PRHOTt  4,3) 
PRH0HI3.4)  s  PRHOTt  3 , 4 ) 
PRHOHt  4.3)  s  PRHOTt  4.3) 

K  s  K  ♦  1 
GO  TO  39 

8  DO  48  Isl.KLL 
DO  48  Jsl.KLL 
PRHOTtl.J)  s  ABStPRHOl I .J) ) 

48  PRHOHt I . J )  s  ABStPRHOl 1  .J) ) 
PRHOTt 1.2)  s  -PRHOTt 1.2) 
PRHOT (2.1 )  s  -PRHOTt  2,1) 
PRHOTt  2 ,4 )  s  -PRHOTt  2 ,4  ) 
PRHOTt  4 .2 )  s  -PRHOTt  4.2) 
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9 


49 


99 


PRH0H11.2)  s  PRHOTt 1.2) 
PRHOH(Z.l)  =  PRH0T(2.1) 
PRH0W(2.4)  =  PRH0TI2.41 
PRKOHt  4.2)  =  PRH0T14.2) 
K  s  K  ♦  1 
DO  TO  39 
00  49  1=1. KLL 
00  49  Jsl.KLL 


PRHOTU.J) 
PRHOHtl.J) 
PRH0TU.2) 
PRHOTt 2.1 ) 
PRH0T13.41 
PRHOTt  4.3) 
PRHOHt 1 .2) 
PRH0Wt2.1) 
PRHOHt 3. 4) 
PRHOHt 4.3) 
K  =  K  ♦  1 


ABStPRHOtl.Jl) 
ABS(PRHOU.J)  J 
-PRHOTt 1 .2 ) 
-PRH0T12.1 J 
-PRH0T(3.4) 
-PRH07 (4.3) 
PRHOTt 1.2) 
PRH0T12.11 
PRHOTt  3 .41 
PRHOTt  4.3) 


00  TO  39 

RETURN 

END 


APPENDIX  E 


COMPUTER  PROGRAM  FOR  THE  REDUCTION  SCALES 
FOR  E  MATRIX 


,.r  T  E„ 


r>  o  r> 
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THE  PROGRAM  FOR  FINDING  NEH  HEIGHTS  FOR  E 

0 IRENS I ON  NRST(5) .X(20) .NT15.5) .T(5.5.5).X0EX(5.5).IR0WI5) 

1  .  PK(5).PL(5).H(5,5).WSTR1(5.5) ,HSTR2( 5*5) 

DATA  H.HSTR1 *HSTR2.PL.PK/85»0.E0/ 

C 

REHINO  ID 
I  OUT  s  6 
INPUT  =  10 

REAOC INPUT, 101 1  NHTS.NHTl .WT2.HT3 

101  F0RMAT(2I5.2E20.6 1 

READ! INPUT, 102)  NSETS.INRSTI 11.1=1,5) 

102  F0RHAT16I2) 

REAOC  INPUT.  103)  ( XU). 1=1  .NHTS) 

103  F0RMRT14E20.6) 

00  10  JA=1  .NSEJS 
IA  =  NRST(JA)  ♦  1 

READ! INPUT .104)  (NT( JA.I ) .1=1 *IA) 

104*  F0RMRJ15I8) 

10  CONTINUE 

REAO( INPUT. 1041  NTAL 
DO  11  J=1 .NSETS 

READ! INPUT, 105 1  NO.HK.l (T( J.IA.JA) .JA=1 .ND ) , IA=1 .MK ) 

105  FORM AT (21 2. 4E1 9.6) 

C105  F0RHRTIZI2.4E20.6) 

IROH(J)  =  MK 

11  CONTINUE 
IA  =  0 

00  12  1=1 .NSETS 
JA  =  NRSTII) 

DO  12  J0=1.JB 
IA  =  IR  +~  1 
XOEX(I.JB)  =  X( IA ) 

12  CONTINUE 

DO  20  ISEF=1 .NSETS 
MK  =  IROW(ISET) 

NO  s  UK  t  1 
DO  21  I X= 1 ,MK 
DO  21  JXsl.ND 

W(ISET.JX)  =  H(ISET.JX)  ♦  XDEX( ISET. IX)«T1 ISET. IX.JX) 

21  CONTINUE 
20  CONTINUE 

DO  23  ISET=l .NSETS 
RENT  =  NRSTUSET)  ♦  1 
DO  24  J=1 .RENT 

24  PK(ISET)  =PK(  I  SET )  ♦  FLOAT!  NTUSET.J )  )*W(ISET .  Jl/FLOBTINTAL) 

DO  28  J=1 .RENT 

28  HSTR1  ( ISET  .  J )  =  H(ISET.J)  -  PK(ISET) 

23  CONTINUE 

DO  25  ISET=1 .NSETS 
RENT  =  MRS T t ISET )  ♦  1 
DO  26  J=1  .RENT 

26  PL(ISET)  =  PL(ISET)  ♦  FLOAT ( NT ( ISET .J) )*HSTR1 ( ISET »J )«HSTR1 ( ISET . J 
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1 )/FLOAT(NTAL) 

25  PL11SET)  =  SQRTtPLUSET)) 

00  29  ISET=1.NSETS 
flENT  =  NRST(ISET)  ♦  1 
00  30  J=1.HENT 

30  NSTR21 ISET .  J)  =  KSTRll  ISET.Jl/PLfISET) 

29  CONTINUE 

HRITEf IOUT. 151) 

151  FORMATf 1H1/////T35.59HTHE  PROGRAM  FOR  FINDING  THE  CATEGORICAL  SCfiL 
1ES  FOR  E-MATRIX  ) 

HRITEf IOUT. 152)  NSETS- (NRSTfl) .1=1 .5) 

152  FORMATf 1H0.T10.34HNUM3ER  OF  SETS  INSETS)  a. 15// 

r  T1Q  .34HNUHQER  OF  RONS  IN  (1.1)  SET  (Nl)  =.I5// 

r  T10.34HNUMBER  OF  ROWS  IN  1 2.2)  SET  CN2)  a. IS// 

t  T10.34HNUMBER  OF  ROMS  IN  (3.3)  SET  (N3)  =.I5// 

r  T10.34HNUMBER  OF  ROWS  IN  (4-.40  SET  (N40  a. IS// 

r  T10.34HNUMBER  OF  ROWS  IN  (5.5)  SET  (N5)  =.I5//  ) 

NRITEf I OUT. 153) 

153  FORMAT ( 1HQ//T 1 0 . 44HTHE  WEIOHJS  FROM  FLEJCHER_AND  POWELL  PROGRAM — ) 
00  171  I=1.NWTS 

HRITEf  IO'JT  .154-1  I. XU) 

154-  FORMAT ( 1H0.T20,2HX(  . I3.4H__)  a.E20.6) 

171  CONTINUE 

00  173  JA=1.NSEJS 
IR  a.  NRSHJRJ 

HRITEI I  OUT ,172)  JA. ( NT( JR. I ) . 1  =  1 .IRJ 

172  FORMRTl 1H0.T10.26HJHE-MAROINAL  TOTAL  FOR  SET  .I3//I T10.ST8) ) 

173  CONTINUE 

HRITEf rOUT. 158)  NTAL  . 

153  FORMAT ( 1HO.T10 . 17HTHE  GRAND  TOTAL  =.I8) 

HRITEf IGUT.160) 

160  FORMAT! 1H0.T10.26HTHE  T  CONDITIONAL  INVERSES  ) 

00  175  Jal.NSETS 

MK  =  IROW(J) 

NO  =  MK  +  1 
HRITEI IOUT.180)  J 

180  FORMAT ( lHO.TiO,  OHFOR  SET  .13) 

DO  181  1  =  1. HK 

101  HRITEf IOUT .102 )  ( T( J.I ,JA) . JA=1 .NO) 

182  F0RMnTflH0.T10.5E20.6J 
175  CONTINUE 

HRITEf IOUT ,105) 

185  FORMAT! 1H0/////T10 , 40HTHE  CATEGORICAL  HEIGHTS  FOR  THE  E  MATRIX  ) 
DO  1?S  ISETsl.NSETS 

HRITEf IOUT, 161)  ISET 

161  FORMATf 1HO//T10.31HTHE  CATEGORICAL  WEIOHTS  FOR  SET  .13) 

MENT  =  NRST ( ISET )  +  1 

HRITEf IOUT. 109)  ( WSTR2( ISET . J ) . J=1 .MENT ) 

189  FORMATf 1HO.T10.SE20. 6) 

186  CONTINUE 
CALL  EXIT 
END 


